OFFSET
0,6
LINKS
T. D. Noe, Table of n, a(n) for n = 0..10000
MATHEMATICA
nn = 100; lim = 2*nn + 17; ps = Prime[Range[2, nn + 1]]; t = Table[0, {lim}]; Do[s = i + j + k; If[s <= lim, t[[s]]++], {i, ps}, {j, ps}, {k, ps}]; Take[t, {1, lim, 2}] (* T. D. Noe, Apr 10 2014 *)
PROG
(PARI) for(n=0, 100, t=2*n+1; c=0; for(k=2, t, for(l=2, t, for(m=2, t, tt=prime(k)+prime(l)+prime(m); if(tt>2*n+1, break); if(tt==2*n+1, c=c+1)))); print1(c", "))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ralf Stephan, Oct 18 2003
EXTENSIONS
Leading zeros added by T. D. Noe, Apr 10 2014
STATUS
approved