OFFSET
1,1
COMMENTS
See comment in A199307.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..800
MATHEMATICA
Select[Table[4n^3-1, {n, 1, 8000}], PrimeQ] (* Vincenzo Librandi, Nov 23 2011 *)
PROG
(Magma) [a: n in [1..250] | IsPrime(a) where a is 4*n^3-1]; // Vincenzo Librandi, Nov 23 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 05 2011
STATUS
approved