OFFSET
0,1
COMMENTS
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..11300
MATHEMATICA
f[n_] := Block[{c = 0, k = PrimePi@n - 1}, While[k > 0, If[ PrimeQ[2n - Prime@k], c++ ]; k-- ]; c]; t = Table[0, {1000}]; Do[ p = Prime@n; a = f@p; If[a < 1001 && t[[a]] == 0, t[[a]] = p; Print[{a, p}]], {n, 8900}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Mar 22 2007
EXTENSIONS
Start of b-file modified to match sequence by N. J. A. Sloane, Aug 31 2009
STATUS
approved