OFFSET
1,2
COMMENTS
See comment in A199307.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 1000], PrimeQ[4#^3 - 1]&] (* Vincenzo Librandi, Jan 07 2013 *)
PROG
(Magma) [n: n in [0..500] | IsPrime(4*n^3-1)]; // Vincenzo Librandi, Jan 07 2013
(PARI) is(n)=isprime(4*n^3-1) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 05 2011
STATUS
approved