OFFSET
1,1
COMMENTS
MATHEMATICA
p = 14; a = {}; Do[k = p x^2 - 1; If[PrimeQ[k], AppendTo[a, k]], {x, 1, 1000}]; a
Select[14*Range[200]^2-1, PrimeQ] (* Harvey P. Dale, Jul 29 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 02 2008
STATUS
approved