OFFSET
1,5
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[c = 0; Do[i = Prime[k]; If[i + j == Prime[n] && ! PrimeQ[j], c = c + 1], {k, n - 1}, {j, Prime[n] - 1}]; c, {n, 73}] (* Jayanta Basu, Apr 22 2013 *)
nn = 100; mx = Prime[nn]; ps = Prime[Range[nn]]; notPs = Complement[Range[mx], ps]; t2 = Table[0, {Range[mx]}]; Do[s = i + j; If[s <= mx, t2[[s]]++], {i, ps}, {j, notPs}]; t2[[ps]] (* T. D. Noe, Apr 23 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 05 2001
STATUS
approved