The OEIS Foundation is grateful to everyone who made a donation during our Annual Appeal. Visit the new and spectacular Pictures from the OEIS page!
1,2
Table of n, a(n) for n=1..62.
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 *)
A090686
Sequence in context: A028763 A186344 A186317 * A001912 A186221 A083027
Adjacent sequences: A143823 A143824 A143825 * A143827 A143828 A143829
nonn
Artur Jasinski, Sep 02 2008
approved