OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[ Range[ 950 ], PrimeQ[ #^3+6 ] & ]
Select[Range[1, 1201, 2], PrimeQ[#^3+6]&] (* Because all terms must be odd, there is no need to test even numbers *) (* Harvey P. Dale, Oct 03 2018 *)
PROG
(Magma)[n: n in [0..1500]|IsPrime(n^3+6)]; // Vincenzo Librandi, Dec 16 2010
(PARI) is(n)=isprime(n^3+6) \\ Charles R Greathouse IV, Jun 12 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Sep 01 2002
EXTENSIONS
More terms from Vincenzo Librandi, Dec 16 2010
STATUS
approved