OFFSET
1,1
MATHEMATICA
a = {}; Do[If[PrimeQ[32n + 31], AppendTo[a, n]], {n, 1, 200}]; a
Select[Range[200], PrimeQ[32#+31]&] (* Harvey P. Dale, Dec 14 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved