OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst = Range[1, 5000, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; chenQ[n_] := PrimeQ[n] && Plus @@ Last /@ FactorInteger[n + 2] < 3; Select[lst, chenQ@# &] (* Robert G. Wilson v, May 12 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, Apr 27 2006
EXTENSIONS
Corrected and extended by Robert G. Wilson v, May 12 2006
STATUS
approved