OFFSET
1,2
MATHEMATICA
p = 6; a = {}; Do[k = p x^2 - 1; If[PrimeQ[k], AppendTo[a, x]], {x, 1, 1000}]; a
Select[Range[250], PrimeQ[6#^2-1]&] (* Harvey P. Dale, Apr 22 2012 *)
PROG
(PARI) is(n)=isprime(6*n^2-1) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 02 2008
STATUS
approved