A127494 a(1)=2, a(2)=3; a(n)=a(n-2)+s^2, where s^2 is a minimal square such that a(n) is prime and is not already in the sequence.

2, 3, 11, 7, 47, 23, 83, 59, 227, 383, 263, 419, 587, 563, 911, 599, 947, 743, 983, 887, 1019, 1031, 1163, 1607, 1307, 1931, 1451, 5531, 1487, 6827, 1523, 6863, 1559, 6899, 2459, 7043, 3359, 7079, 4259, 12263, 4583, 13163, 5483, 13487, 5519, 13523, 5843

Offset

1,1

Links

Table of n, a(n) for n=1..47.

Mathematica

a={2, 3}; Do[aa=a[[ -2]]; Do[b=aa+s^2; If[FreeQ[a, b]&&PrimeQ[b], AppendTo[a, b]; Break[]], {s, 1000000}], {1008}]; a

Crossrefs

Sequence in context: A127376 A086146 A083758 * A320264 A335173 A265563

Adjacent sequences: A127491 A127492 A127493 * A127495 A127496 A127497

Keyword

nonn

Author

Zak Seidov, Mar 31 2007

Status

approved