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