OFFSET
1,1
COMMENTS
Perhaps there are no even terms > 6.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := (p = 0; pn = PrimePi[n];
Do[ If[n == Prime[i] + Prime[k], p = p + 1; If[p > 2, Break[]]], {i, 1, pn},
{k, i+1, pn}]; p );
Select[Range[2, 400], ! PrimeQ[#] && f[#] == 0 & ] (* Jean-François Alcover, Mar 07 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 19 2005
STATUS
approved