The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A128106 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A128106

Sizes of possible gaps around a Gaussian prime: 1 and the even numbers in A001481.
(history; published version)

#12 by Bruno Berselli at Sat Jun 21 16:20:04 EDT 2014

STATUS

reviewed

approved

#11 by Wesley Ivan Hurt at Sat Jun 21 16:15:25 EDT 2014

STATUS

proposed

reviewed

#10 by Vincenzo Librandi at Sat Jun 21 02:46:54 EDT 2014

STATUS

editing

proposed

#9 by Vincenzo Librandi at Sat Jun 21 02:46:42 EDT 2014

LINKS

Vincenzo Librandi, <a href="/A128106/b128106.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#8 by Peter Luschny at Fri Jun 20 17:06:35 EDT 2014

STATUS

editing

approved

#7 by Peter Luschny at Fri Jun 20 17:06:12 EDT 2014

PROG

(Sage)

def A128106_list(max):

R = []; s = 1; sq = 1

for n in (0..max//2):

if n == s:

sq += 1;

s = sq*sq;

for k in range(sq):

if is_square(n-k*k):

R.append(2*n)

break

R[0] = 1

return R

A128106_list(274) # Peter Luschny, Jun 20 2014

STATUS

approved

editing

#6 by Charles R Greathouse IV at Thu Nov 21 13:07:19 EST 2013

MATHEMATICA

q=12; imax=2*q^2; lst=Select[Union[Flatten[Table[2*x^2+2*y^2, {x, 0, q}, {y, 0, x}]]], #<=imax&]; Join[{1}, Drop[lst, 1]] (* From _Vladimir Joseph Stephan Orlovsky, _, Apr 20 2011 *)

Discussion

Thu Nov 21

13:07

OEIS Server: https://oeis.org/edit/global/2063

#5 by Russ Cox at Fri Mar 30 17:22:46 EDT 2012

AUTHOR

_T. D. Noe (noe(AT)sspectra.com), _, Feb 15 2007

Discussion

Fri Mar 30

17:22

OEIS Server: https://oeis.org/edit/global/120

#4 by T. D. Noe at Wed Apr 20 19:37:43 EDT 2011

STATUS

proposed

approved

#3 by T. D. Noe at Wed Apr 20 19:37:37 EDT 2011

MATHEMATICA

q=1712; imax=2*q^2; lst=Select[Union[Flatten[Table[2*x^2+2*y^2, {y, x, 0, q}, {x, y, 0, qx}]]], #<=imax&]; Join[{1}, Drop[lst, 1]] (* From Vladimir Joseph Stephan Orlovsky, Apr 20 2011 *)