A296370 -id:A296370 - cp's OEIS frontend

A128122 Numbers m such that 2^m == 6 (mod m).

1, 2, 10669, 6611474, 43070220513807782

Offset: 1

Alexander Adamchuk, Feb 15 2007

No other terms below 10^17. - Max Alekseyev, Nov 18 2022

A large term: 862*(2^861-3)/281437921287063162726198552345362315020202285185118249390789 (203 digits). - Max Alekseyev, Sep 24 2016

			2 == 6 (mod 1), so 1 is a term;
4 == 6 (mod 2), so 2 is a term.

Joe K. Crump, 2^n mod n
OEIS Wiki, 2^n mod n

Solutions to 2^m == k (mod m): A000079 (k=0),A187787 (k=1/2), A296369 (k=-1/2), A006521 (k=-1), A296370 (k=3/2), A015919 (k=2), A006517 (k=-2), A050259 (k=3), A015940 (k=-3), A015921 (k=4), A244673 (k=-4), A128121 (k=5), A245318 (k=-5), this sequence (k=6), A245728 (k=-6), A033981 (k=7), A240941 (k=-7), A015922 (k=8), A245319 (k=-8), A051447 (k=9), A240942 (k=-9), A128123 (k=10), A245594 (k=-10), A033982 (k=11), A128124 (k=12), A051446 (k=13), A128125 (k=14), A033983 (k=15), A015924 (k=16), A124974 (k=17), A128126 (k=18), A125000 (k=19), A015925 (k=2^5), A015926 (k=2^6), A015927 (k=2^7), A015929 (k=2^8), A015931 (k=2^9), A015932 (k=2^10), A015935 (k=2^11), A015937 (k=2^12)

Cf. A015910, A036236.

m = 6; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)

1 and 2 added by N. J. A. Sloane, Apr 23 2007

a(5) from Max Alekseyev, Nov 18 2022

A296369 Numbers m such that 2^m == -1/2 (mod m).

Original entry on oeis.org

1, 5, 65, 377, 1189, 1469, 25805, 58589, 134945, 137345, 170585, 272609, 285389, 420209, 538733, 592409, 618449, 680705, 778805, 1163065, 1520441, 1700945, 2099201, 2831009, 4020029, 4174169, 4516109, 5059889, 5215769

Offset: 1

Max Alekseyev, Dec 10 2017

nonn

Equivalently, 2^(m+1) == -1 (mod m), or m divides 2^(m+1) + 1.

The sequence is infinite, see A055685.

Chai Wah Wu, Table of n, a(n) for n = 1..1192
OEIS Wiki, 2^n mod n

Solutions to 2^m == k (mod m): A296370 (k=3/2), A187787 (k=1/2), this sequence (k=-1/2), A000079 (k=0), A006521 (k=-1), A015919 (k=2), A006517 (k=-2), A050259 (k=3), A015940 (k=-3), A015921 (k=4), A244673 (k=-4), A128121 (k=5), A245318 (k=-5), A128122 (k=6), A245728 (k=-6), A033981 (k=7), A240941 (k=-7), A015922 (k=8), A245319 (k=-8), A051447 (k=9), A240942 (k=-9), A128123 (k=10), A245594 (k=-10), A033982 (k=11), A128124 (k=12), A051446 (k=13), A128125 (k=14), A033983 (k=15), A015924 (k=16), A124974 (k=17), A128126 (k=18), A125000 (k=19), A015925 (k=2^5), A015926 (k=2^6), A015927 (k=2^7), A015929 (k=2^8), A015931 (k=2^9), A015932 (k=2^10), A015935 (k=2^11), A015937 (k=2^12)

Select[Range[10^5], Divisible[2^(# + 1) + 1, #] &] (* Robert Price, Oct 11 2018 *)

A296369_list = [n for n in range(1,10**6) if pow(2,n+1,n) == n-1] # Chai Wah Wu, Nov 04 2019

a(n) = A055685(n) - 1.

Incorrect term 4285389 removed by Chai Wah Wu, Nov 04 2019

A347906 Numbers k such that 2^(2*k-1) == 1 (mod k).

Original entry on oeis.org

1, 80519, 107663, 1284113, 1510313, 3933023, 4557713, 24849833, 71871113, 80646143, 98058097, 104832833, 106694033, 146987033, 168204191, 188997463, 205428713, 332693873, 333681761, 336327863, 380284847, 533039513, 552913169, 711999113, 725943719, 805031663, 1000519033, 1069441313, 1476327353, 1610020913

Offset: 1

Jianing Song, Sep 18 2021

nonn

Odd numbers k such that ord(2,k) divides 2*k-1, where ord(2,k) is the multiplicative order of 2 modulo k.
Numbers k such that 2*k is in A006935. For k > 1, k is a term if and only if 2*k is an even pseudoprime to base 2.
Odd terms in A130421. Complement of A347908 in A130421.
Terms > 1 must be composite, since for odd primes p we have 2^(2*p-1) == 2 (mod p). If k > 1 is a term, then 2*k-1 must also be composite, since ord(2,k) | (2*k-1) and ord(2,k) <= eulerphi(k) <= k-1 < 2*k-1.
If k > 1 is a term, then (2^(2*k-1) - 1)/k is composite. Proof: since 2*k-1 is composite, write 2*k-1 = u*v, u >= v > 1, then (2^(2*k-1) - 1)/k = (2^u - 1)*(2^(u*(v-1)) + ... + 2^u + 1)/k. Since k | 2^(2*k-1) - 1, there exist positive integers a,b such that a*b = k and that a | 2^u - 1 and b | 2^(u*(v-1)) + ... + 2^u + 1. Note that (2^u - 1)/a, (2^(u*(v-1)) + ... + 2^u + 1)/b >= (2^u - 1)/k >= (2^sqrt(2*k-1) - 1)/k > 1, so (2^(2*k-1) - 1)/k is the product of two integers > 1, so it is composite.
2^t - 1 is a term if and only if 2^(t+1) == 3 (mod t) (t = 1, 111481, 465793, ... in A296370).

			80519 is a term since 80519 divides 2^161037 - 1 (the multiplicative order of 2 modulo 80519 is 261, which is a divisor of 161037). Note that 2 * 80519 = 161038 = A006935(2) is the smallest even pseudoprime to base 2.

Jianing Song, Table of n, a(n) for n = 1..1319 (contains all terms below 10^15; based on Max Alekseyev's b-file for A006935)

Cf. A006935, A130421, A347908, A296370.

Cf. A347907 (a similar sequence).

isA347906(k) = if(k%2 && !isprime(k), Mod(2, k)^(2*k-1)==1, 0)

a(n) = A006935(n)/2.

A296104 Numbers k such that 2^k == 3 (mod k-1).

Original entry on oeis.org

2, 111482, 465794, 79036178, 1781269903308, 250369632905748, 708229497085910, 15673900819204068

Offset: 1

Krzysztof Ziemak and Max Alekseyev, Dec 04 2017

Also, numbers k such that 2^k - 2 is a Fermat pseudoprime, i.e., 2^k - 2 belongs to A015919 and A006935.
a(3) was found by McDaniel (1989).
Some larger terms (maybe not in order): 2338990834231272653582, 341569682872976768698011746141903924998969680638.
Discovered huge even PSP(2) numbers of the form 2*M(n), where n=p*q and M(n)=2^n-1, ensure that the following numbers are also even pseudoprimes of the form 2*M(p)*M(q): 2*M(37)*M(12589), 2*M(131)*M(17854891864360859951), 2*M(179)*M(1398713032993), 2*M(2111)*M(335494787819), 2*M(35267)*M(50508121). - Krzysztof Ziemak, Jan 01 2018

W. L. McDaniel, Some Pseudoprimes and Related Numbers Having Special Forms, Math. Comp. 53:187 (1989), 407-409.

Cf. A000079, A015919, A006935, A014741, A050259, A055685, A296370.

k = 2; lst = {2}; While[k < 1000000001, If[ PowerMod[2, k, k -1] == 3, AppendTo[lst, k]]; k += 10; If[ PowerMod[2, k, k -1] == 3, AppendTo[lst, k]]; k += 2]; lst (* Robert G. Wilson v, Jan 01 2018 *)

is_A296104(n) = Mod(2, n-1)^n == 3; \\ Iain Fox, Dec 07 2017

A296104_list = [n for n in range(2,10**6) if pow(2,n,n-1) == 3 % (n-1)] # Chai Wah Wu, Dec 06 2017

a(n) = A296370(n) + 1.

A334634 Numbers m that divide 2^m + 11.

Original entry on oeis.org

1, 13, 16043199041, 91118493923, 28047837698634913

Offset: 1

Max Alekseyev, Sep 10 2020

Equivalently, numbers m such that 2^m == -11 (mod m).

No other terms below 10^17.

OEIS Wiki, 2^n mod n

Solutions to 2^n == k (mod n): A296370 (k=3/2), A187787 (k=1/2), A296369 (k=-1/2), A000079 (k=0), A006521 (k=-1), A015919 (k=2), A006517 (k=-2), A050259 (k=3), A015940 (k=-3), A015921 (k=4), A244673 (k=-4), A128121 (k=5), A245318 (k=-5), A128122 (k=6), A245728 (k=-6), A033981 (k=7), A240941 (k=-7), A015922 (k=8), A245319 (k=-8), A051447 (k=9), A240942 (k=-9), A128123 (k=10), A245594 (k=-10), A033982 (k=11), this sequence (k=-11), A128124 (k=12), A051446 (k=13), A128125 (k=14), A033983 (k=15), A015924 (k=16), A124974 (k=17), A128126 (k=18), A125000 (k=19), A015925 (k=2^5), A015926 (k=2^6), A015927 (k=2^7), A015929 (k=2^8), A015931 (k=2^9), A015932 (k=2^10), A015935 (k=2^11), A015937 (k=2^12).

a(5) from Sergey Paramonov, Oct 10 2021

cp's OEIS Frontend

A128122 Numbers m such that 2^m == 6 (mod m).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A296369 Numbers m such that 2^m == -1/2 (mod m).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A347906 Numbers k such that 2^(2*k-1) == 1 (mod k).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

A296104 Numbers k such that 2^k == 3 (mod k-1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A334634 Numbers m that divide 2^m + 11.

Views

Author

Keywords

Comments

Links

Crossrefs

Extensions