OFFSET
1,1
MATHEMATICA
Select[Prime[Range[120]], EvenQ[Mod[#, 9]] &] (* Bruno Berselli, Aug 31 2012 *)
PROG
(PARI) forprime(p=2, 600, if((p%9)%2==0, print1(p, ", ")))
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Klaus Brockhaus, Dec 28 2002
STATUS
approved