A015940 -id:A015940 - cp's OEIS frontend

A050259 Numbers n such that 2^n == 3 (mod n).

1, 4700063497, 3468371109448915, 8365386194032363, 10991007971508067

Offset: 1

No other terms below 10^18. - Max Alekseyev, Oct 17 2017

Terms were computed: a(2) by the Lehmers, a(3) by Max Alekseyev, a(4) and a(5) by Joe K. Crump, a(?) = 63130707451134435989380140059866138830623361447484274774099906755 by P.-L. Montgomery.

R. Daniel Mauldin and S. M. Ulam, Mathematical problems and games. Adv. in Appl. Math. 8 (1987), pp. 281-344.

Joe K. Crump, 2^n mod n
R. K. Guy, The Strong Law of Small Numbers, Amer. Math. Monthly 95 (1988), pp. 697-712. See example 13.
R. K. Guy, The strong law of small numbers. Amer. Math. Monthly 95 (1988), no. 8, 697-712. [Annotated scanned copy]
Eric Weisstein's World of Mathematics, 2
OEIS Wiki, 2^n mod n

Cf. A001567, A036236, A015940, A015910.

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

is(n)=Mod(2,n)^n==3 \\ Charles R Greathouse IV, Jun 11 2015

A015973 Positive integers n such that n | (3^n + 2).

Original entry on oeis.org

1, 5, 77, 278377, 3697489, 219596687717, 56865169816619

Offset: 1

Robert G. Wilson v

No other terms below 10^15. Some larger term: 3142423971953435020522506484187. - Max Alekseyev, Aug 04 2011

Cf. A015940, A050259, A123062

Solutions to 3^n == k (mod n): A277340 (k=-11), A277289 (k=-7), A277288 (k=-5), this sequence (k=-2), A015949 (k=-1), A067945 (k=1), A276671 (k=2), A276740 (k=5), A277126 (k=7), A277274 (k=11).

a(1)=1 prepended and a(6)-a(7) added by Max Alekseyev, Aug 04 2011

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

Original entry on oeis.org

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

A296370 Numbers m such that 2^m == 3/2 (mod m).

Original entry on oeis.org

1, 111481, 465793, 79036177, 1781269903307, 250369632905747, 708229497085909, 15673900819204067

Offset: 1

Max Alekseyev, Dec 11 2017

Equivalently, 2^(m+1) == 3 (mod m).
Also, numbers m such that 2^(m+1) - 2 is a Fermat pseudoprime base 2, i.e., 2^(m+1) - 2 belongs to A015919 and A006935.
Some larger terms (may be not in order): 2338990834231272653581, 341569682872976768698011746141903924998969680637.

OEIS Wiki, 2^n mod n

Solutions to 2^m == k (mod m): this sequence (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), 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^6], Divisible[2^(# + 1) - 3, #] &] (* Robert Price, Oct 11 2018 *)

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

A327840 Numbers m that divide 4^m + 3.

Original entry on oeis.org

1, 7, 16387, 4509253, 24265177, 42673920001, 103949349763, 12939780075073

Offset: 1

Juri-Stepan Gerasimov, Sep 27 2019

Number of solutions < 10^9 to k^n == k-1 (mod n): 1 (if k = 1), 188 (if k = 2, see A006521), 5 (if k = 3, see A015973), 5 (if k = 4, see this sequence), 5 (if k = 5), 10 (if k = 6), 10 (if k = 7), 7 (if k = 8), 5 (if k = 9), 8 (if k = 10), 11 (if k = 11), 8 (if k = 12), 9 (if k = 13), 4 (if k = 14), 3 (if k = 15), 6 (if k = 16), 7 (if k = 17), 7 (if k = 18), ...

a(9) > 10^15. - Max Alekseyev, Nov 10 2022

Solutions to k^n == 1-k (mod n): A006521 (k = 2), A015973 (k = 3), this sequence (k = 4), A123047 (k = 5), A327943 (k = 6).
Solutions to 4^n == k (mod n): A000079 (k = 0), A015950 (k = -1), A014945 (k = 1), A130421 (k = 2), this sequence (k = -3), A130422 (k = 3).
Cf. A015940, A253208.

[1] cat [n: n in [1..10^8] | Modexp(4,n,n) + 3 eq n];

Select[Range[10^7], IntegerQ[(PowerMod[4, #, # ]+3)/# ]&] (* Metin Sariyar, Sep 28 2019 *)

is(n)=Mod(4,n)^n==-3 \\ Charles R Greathouse IV, Sep 29 2019

a(6)-a(7) from Giovanni Resta, Sep 29 2019

a(8) from Max Alekseyev, Nov 10 2022

A215747 a(n) = (-2)^n mod n.

Original entry on oeis.org

0, 0, 1, 0, 3, 4, 5, 0, 1, 4, 9, 4, 11, 4, 7, 0, 15, 10, 17, 16, 13, 4, 21, 16, 18, 4, 1, 16, 27, 4, 29, 0, 25, 4, 17, 28, 35, 4, 31, 16, 39, 22, 41, 16, 28, 4, 45, 16, 19, 24, 43, 16, 51, 28, 12, 32, 49, 4, 57, 16, 59, 4, 55, 0, 33, 64, 65, 16, 61, 44, 69, 64, 71, 4, 7

Offset: 1

Alex Ratushnyak, Aug 23 2012

n^(n+2) mod (n+2) is essentially the same.
Indices of 0's: 2^k - 1, k>=0.
Indices of 1's: A006521 except the first term.
Indices of 3's: A015940.
Indices of 5's: 7, 133, 1517, 11761, ...
a(A000040(n)) = A000040(n)-2 = A040976(n).

			a(5) = (-2)^5 mod 5 = -32 mod 5 = 3.

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Cf. A015910, A082493, A082494, A110146, A213381.

a:= n-> (-2)&^n mod n:
seq(a(n), n=1..100);  # Alois P. Heinz, Apr 08 2015

a[n_]:=Mod[(-2)^n ,n]; Array[a,75] (* Stefano Spezia, Aug 25 2025 *)

for n in range(1, 333):
    print((-2)**n % n, end=',')

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

A050259 Numbers n such that 2^n == 3 (mod n).

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

PARI

A015973 Positive integers n such that n | (3^n + 2).

Views

Author

Keywords

Comments

Crossrefs

Extensions

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

A296370 Numbers m such that 2^m == 3/2 (mod m).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A327840 Numbers m that divide 4^m + 3.

Views

Author

Keywords

Comments

Crossrefs

Programs

Magma

Mathematica

PARI

Extensions

A215747 a(n) = (-2)^n mod n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

A334634 Numbers m that divide 2^m + 11.

Views

Author

Keywords

Comments