OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst={}; Do[p=Prime[n]; a=12*p^3; If[PrimeQ[a-1]&&PrimeQ[a+1], AppendTo[lst, p]], {n, 8!}]; lst
Select[Prime[Range[7000]], AllTrue[12#^3+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 03 2019 *)
PROG
(Magma) [p:p in PrimesUpTo(63000)| IsPrime(12*p^3-1) and NextPrime(12*p^3-1) eq 12*p^3+1]; // Marius A. Burtea, Jan 23 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 15 2009
STATUS
approved