OFFSET
1,1
MATHEMATICA
a = {}; Do[If[PrimeQ[85 + 256 n], AppendTo[a, 85 + 256 n]], {n, 0, 200}]; a
Select[256*Range[200]+85, PrimeQ] (* Harvey P. Dale, Oct 09 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved