|
| |
|
|
A158297
|
|
Primes p such that 12*p^3-+1 are twin primes.
|
|
1
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
