OFFSET
1,2
MATHEMATICA
n = 1; last = 1; t = {1}; t2 = {1}; While[Length[t] < 10, n++; p = 1 + 4 n^2; If[PrimeQ[p], If[n - last > t[[-1]], AppendTo[t, n - last]; AppendTo[t2, last]]; last = n]]; t2
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
T. D. Noe, Aug 06 2012
STATUS
approved