OFFSET
1,1
MATHEMATICA
c[n_] := Block[{m = 2}, While[ !PrimeQ[2n - Prime[m]], m++ ]; Prime[m]]; v={2}; Do[ p = c[n]; If[ p >= v1, v1 = p; AppendTo[v, p]; Print[p]], {n, 3, 215000000}]; v
CROSSREFS
KEYWORD
nonn
AUTHOR
Farideh Firoozbakht, Aug 09 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 10 2004
STATUS
approved