OFFSET
1,1
COMMENTS
Subset of A007528. The values of n for which 6*n^2 - 1 is prime are 1, 2, 3, 5, 7, 8, 10, 12, 13, 17, 20, 22, 27, 28, 30, 32, 35, 38, 43, 45, 52, 55, 58, 60, 62, 63, 65, 68, 70, 73, 75, 77, 82, 83, 87, 93, 97, 100, ... - Jonathan Vos Post, Aug 27 2006
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
lst={}; Do[p=6*n^2-1; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 3*5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 27 2009 *)
Select[Table[6n^2-1, {n, 0, 700}], PrimeQ] (* Vincenzo Librandi, Dec 05 2011 *)
PROG
(PARI) mx2pmp(n) = { for(x=1, n, y = 6*x^2-1; if(isprime(y), print1(y", ")) ) }
(Magma) [a: n in [0..500] | IsPrime(a) where a is 6*n^2-1]; // Vincenzo Librandi, Dec 05 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 18 2003
EXTENSIONS
Edited by N. J. A. Sloane at the suggestion of R. J. Mathar, Apr 14 2008
STATUS
approved