OFFSET
1,3
MATHEMATICA
a = {}; Do[If[PrimeQ[24 n + 13], AppendTo[a, n]], {n, 0, 200}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 25 2008
STATUS
approved