OFFSET
1,1
LINKS
Bruno Berselli, Table of n, a(n) for n = 1..900
EXAMPLE
For prime p = 283, 6*p^3+1 = 135991123 is prime.
MATHEMATICA
Select[Prime[Range[500]], PrimeQ[6#^3+1]&] (* Harvey P. Dale, May 13 2011 *)
PROG
(Magma) [ p: p in PrimesUpTo(2600) | IsPrime(6*p^3+1) ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Bruno Berselli, Apr 22 2011
STATUS
approved