A158297 Primes p such that 12*p^3-+1 are twin primes.

11, 239, 449, 619, 2099, 2711, 3109, 3889, 4591, 5519, 8539, 9719, 12071, 17981, 19441, 21569, 28949, 29399, 32771, 38189, 38201, 40709, 41771, 44699, 45949, 47149, 50741, 52189, 52379, 52501, 52639, 55339, 56249, 58831, 61561, 62861

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

Cf. A120364, A088483, A158295, A158296.

Sequence in context: A139229 A266652 A142672 * A296170 A264465 A090921

Adjacent sequences: A158294 A158295 A158296 * A158298 A158299 A158300

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 15 2009

Status

approved