OFFSET
1,1
FORMULA
MATHEMATICA
Select[1 + 4Range@150, PrimeQ@# &] + Select[ -1 + 4Range@135, PrimeQ@# &] (* Robert G. Wilson v, May 04 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved