OFFSET
1,3
MATHEMATICA
a = {}; Do[If[PrimeQ[24 n + 7], AppendTo[a, n]], {n, 0, 200}]; a
Select[Range[0, 200], PrimeQ[24#+7]&] (* Harvey P. Dale, Sep 02 2015 *)
PROG
(PARI) is(n)=isprime(24*n+7) \\ Charles R Greathouse IV, Jun 06 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Apr 23 2008
STATUS
approved