A238694 -id:A238694 - cp's OEIS frontend

A237422 Number of prime pairs {2^n - (2k + 1), (2k + 1)*2^n - 1}, k < n.

0, 1, 2, 2, 1, 1, 1, 1, 0, 2, 0, 2, 2, 1, 0, 1, 1, 1, 1, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 3, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 1

Ilya Lopatin and Juri-Stepan Gerasimov, Mar 04 2014

nonn

If k = 0, then the two numbers in the "prime pair" are actually the same number, 2^n - 1 (a Mersenne prime; see A000668).

			a(2) = 1 because 2^2-(2*0+1)=3 and (2*0+1)*2^2-1=3 for k=0;
a(3) = 2 because 2^3-(2*0+1)=7 and (2*0+1)*2^3-1=7 for k=0, 2^3-(2*1+1)=5 and (2*1+1)*2^3-1=23 for k=1;
a(4) = 2 because 2^4-(2*1+1)=13 and (2*1+1)*2^4-1=47 for k=1, 2^4-(2*2+1)=11 and (2*2+1)*2^4-1=59 for k=2.

Cf, A000043, A238694.

a[n_] := Length@Select[Range[0, n-1], PrimeQ[2^n - (2*#+1)] && PrimeQ[(2*#+1) * 2^n-1] &]; Array[a,90] (* Giovanni Resta, Mar 04 2014 *)

a(6), a(42), a(48)-a(87) from Giovanni Resta, Mar 04 2014

A238749 Exponents of third Mersenne prime pair: numbers n such that 2^n - 5 and 5*2^n - 1 are both prime.

Original entry on oeis.org

4, 8, 10, 12, 18, 32

Offset: 1

Ilya Lopatin and Juri-Stepan Gerasimov, Mar 04 2014

a(7) > 350028.
Intersection of A059608 and A001770.
Exponents of Mersenne prime pairs {2^n - (2k + 1), (2k + 1)*2^n - 1}:
for k = 0: 2, 3, 5, 7, 13, 17, ...   Intersection of A000043 and A000043
for k = 1: 3, 4, 6, 94, ...          Intersection of A050414 and A002235
for k = 2: 4, 8, 10, 12, 18, 32, ... Intersection of A059608 and A001770
for k = 3:                           Intersection of A059609 and A001771
for k = 4: 21, ...                   Intersection of A059610 and A002236
for k = 5:                           Intersection of A096817 and A001772
for k = 6:                           Intersection of A096818 and A001773
for k = 7: 5, 10, 14, ...            Intersection of A059612 and A002237
for k = 8: 6, 16, 20, 36, ...        Intersection of A059611 and A001774
for k = 9: 5, 21, ...                Intersection of A096819 and A001775
for k = 10: 7, 13, ...               Intersection of A096820 and A002238
for k = 11: 6, 8, 12, ...
for k = 12: 9, ...
for k = 13: 5, 8, 10, ...
for k = 14:

			a(1) = 4 because 2^4 - 5 = 11 and 5*2^4 - 1 = 79 are both primes.

Cf. A000043, A001770, A059608, A237422, A238694, A238251, A238751, A238797.

[n: n in [0..100] | IsPrime(2^n-5) and IsPrime(5*2^n-1)]; // Vincenzo Librandi, May 17 2015

fQ[n_] := PrimeQ[2^n - 5] && PrimeQ[5*2^n - 1]; k = 1; While[ k < 15001, If[fQ@ k, Print@ k]; k++] (* Robert G. Wilson v, Mar 05 2014 *)
Select[Range[1000], PrimeQ[2^# - 5] && PrimeQ[5 2^# - 1] &] (* Vincenzo Librandi, May 17 2015 *)

isok(n) = isprime(2^n - 5) && isprime(5*2^n - 1); \\ Michel Marcus, Mar 04 2014

A238751 Lesser prime of third Mersenne prime pair {2^m - 5, 5*2^m - 1}.

Original entry on oeis.org

11, 251, 1019, 4091, 65531, 4294967291

Offset: 1

Ilya Lopatin and Juri-Stepan Gerasimov, Mar 04 2014

By comparing A059608 and A001770, the next term, if it exists, is larger than 2^350028. - Giovanni Resta, Mar 06 2014
Lesser prime of Mersenne prime pair of order k and of the form {2^m - (2k - 1), (2k - 1)*2^m - 1}:
for order k = 1: 3, 7, 31, 127, 8191, 131071, ... (Mersenne primes A000668)
for order k = 2: 5, 13, 61, ...
for order k = 3: 11, 251, 1019, 4091, 655531, 4294967291, ... (this sequence)
for order k = 4:
for order k = 5: 2097143, ...
for order k = 6: 3, ...
for order k = 7:
for order k = 8: 17, 1009, 16369, ...
for order k = 9: 47, 65519, 1048559, 68719476719, ...
for order k = 10: 13, 2097133, ...
for order k = 11: 107, 8171, ...
for order k = 12: 41, 233, 4073, ...
for order k = 13: 487, ...
for order k = 14: 5, 229, 997, ...
for order k = 15: 97, ...

			11 is in this sequence because Mersenne prime pair {2^4-(2*3-1) = 11, (2*3-1)*2^4-1 = 79} where 3 is order and 11 is lesser prime (for m = 4).

Cf. A237422, A238694, A238749, A059608, A001770, A156560, A050522.

2^Select[Range[1000], PrimeQ[2^# - 5] && PrimeQ[5*2^# - 1] &] - 5 (* Giovanni Resta, Mar 06 2014 *)

Numbers 2^m - 5 for m belonging to the intersection of A001770 and A059608. - Max Alekseyev, Feb 20 2024

A267943 Numbers n such that 2^n - 3 and 3*2^n - 1 are both prime.

Original entry on oeis.org

3, 4, 6, 94

Offset: 1

Arkadiusz Wesolowski, Jan 22 2016

The intersection of A002235 and A050414 is not empty (3 does not belong to A267985).

			a(3) = 6 because 2^6 - 3 = 61 and 3*2^6 - 1 = 191 are both prime.

Cf. A002235, A007505, A050414, A050415, A238694, A267985.

[n: n in [2..94] | IsPrime(2^n-3) and IsPrime(3*2^n-1)];

isok(n) = isprime(2^n-3) && isprime(3*2^n-1);

A002235 INTERSECT A050414.

cp's OEIS Frontend

A237422 Number of prime pairs {2^n - (2k + 1), (2k + 1)*2^n - 1}, k < n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A238749 Exponents of third Mersenne prime pair: numbers n such that 2^n - 5 and 5*2^n - 1 are both prime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Magma

Mathematica

PARI

A238751 Lesser prime of third Mersenne prime pair {2^m - 5, 5*2^m - 1}.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A267943 Numbers n such that 2^n - 3 and 3*2^n - 1 are both prime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Magma

PARI

Formula