login
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.
0
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
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 31 2007
STATUS
approved