OFFSET
1,2
COMMENTS
There are no other terms up to 10^7. Conjecture: There are no more terms in the sequence.
MATHEMATICA
rep[ n_ ] := Module[ {a, q}, For[ a=2, GCD[ n, a ]!=1, a++, Null ]; For[ q=2, q a^2<n, q++, If[ PrimeQ[ q ]&&PrimeQ[ n-q a^2 ], Return[ True ] ] ]; False ]; Select[ Range[ 1, 10000 ], !rep[ # ]& ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Dean Hickerson, Oct 13 2001
STATUS
approved