OFFSET
1,2
MATHEMATICA
p = 12; a = {}; Do[k = p x^2 - 1; If[PrimeQ[k], AppendTo[a, x]], {x, 1, 1000}]; a
PROG
(PARI) is(n)=isprime(12*n^2-1) \\ Charles R Greathouse IV, Feb 20 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 02 2008
STATUS
approved