OFFSET
0,2
COMMENTS
All terms are multiple of 3.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
Select[Range[0, 10000], PrimeQ[2*# + 5] && PrimeQ[4*# + 5] && PrimeQ[6*# + 5] && PrimeQ[ 8*# + 5] &] (* T. D. Noe, Jan 25 2013 *)
Select[Range[0, 8000], AllTrue[#{2, 4, 6, 8}+5, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 14 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Jan 25 2013
STATUS
approved