The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 1 13:29 EDT 2023. Contains 361695 sequences. (Running on oeis4.)