A158295 -id:A158295 - cp's OEIS frontend

A158296 Primes p such that 12*p^2 -+ 1 are twin primes.

3, 11, 13, 17, 29, 227, 283, 491, 647, 739, 953, 1151, 1471, 1511, 1879, 1889, 2129, 2251, 2297, 2593, 2633, 3347, 3539, 3559, 3643, 3877, 3919, 4231, 4327, 4547, 4673, 4801, 4999, 5051, 6451, 6653, 6737, 6779, 6983, 7741, 7937, 8179, 8219, 8231, 8389

Offset: 1

Vladimir Joseph Stephan Orlovsky, Mar 15 2009

nonn

			3 is in the sequence since 12*3^2 = 108 and (107, 109) are twin primes.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A120364, A088483, A158295.

lst={};Do[p=Prime[n];a=12*p^2;If[PrimeQ[a-1]&&PrimeQ[a+1],AppendTo[lst,p]],{n,7!}];lst
Select[Prime[Range[1200]],AllTrue[12#^2+{1,-1},PrimeQ]&] (* Harvey P. Dale, Sep 15 2021 *)

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

Original entry on oeis.org

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

Vladimir Joseph Stephan Orlovsky, Mar 15 2009

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A120364, A088483, A158295, A158296.

[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

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 *)

cp's OEIS Frontend

A158296 Primes p such that 12*p^2 -+ 1 are twin primes.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica