OFFSET
1,1
COMMENTS
All terms are even. - Robert Israel, Jan 24 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
If n=48 then 3*n^3 + 1 = 331777 (prime).
MAPLE
select(n -> isprime(3*n^3+1), [seq(i, i=2..1000, 2)]); # Robert Israel, Jan 24 2018
MATHEMATICA
Select[Range[2000], PrimeQ[3#^3 + 1] &] (* Stefan Steinerberger, Apr 22 2006 *)
Select[Range[2, 500], PrimeQ[3#^3 + 1] &] (* Stefan Steinerberger, Jul 22 2006 *)
PROG
(Magma) [ n: n in [0..500] | IsPrime(3*n^3 + 1) ] // Vincenzo Librandi, Jan 31 2011
(PARI) is(n)=isprime(3*n^3+1) \\ Charles R Greathouse IV, Feb 20 2017
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Parthasarathy Nambi, Apr 20 2006
EXTENSIONS
More terms from Stefan Steinerberger, Apr 22 2006, Jul 22 2006
STATUS
approved