OFFSET
1,1
COMMENTS
Except for a(1), a(2) a(3) & a(5), a(n)==0 (mod 6). - Robert G. Wilson v
MATHEMATICA
fQ[n_] := Block[{t = n - Prime@Range@PrimePi[n/2]}, 2Length[Select[t, PrimeQ]] > Length[t]]; Select[ 2Range[2, 434], fQ[ # ] &] (* Robert G. Wilson v, Nov 03 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gilmar Rodriguez Pierluissi (gilmarlily(AT)yahoo.com), Aug 31 2005
EXTENSIONS
Edited by Robert G. Wilson v, Nov 03 2005
STATUS
approved