OFFSET
1,1
COMMENTS
MATHEMATICA
t = Table[Length[Select[Range[n/2], ! PrimeQ[#] && ! PrimeQ[n - #] && GCD[#, n - #] == 1 &]], {n, 2, 2000, 2}]; Flatten[2*Position[t, 0]] (* T. D. Noe, Dec 05 2013 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
T. D. Noe, Jun 02 2008
STATUS
approved