cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-7 of 7 results.

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

Original entry on oeis.org

1, 2, 10669, 6611474, 43070220513807782
Offset: 1

Views

Author

Alexander Adamchuk, Feb 15 2007

Keywords

Comments

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

Examples

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

Crossrefs

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)

Programs

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

Extensions

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

Views

Author

Max Alekseyev, Dec 10 2017

Keywords

Comments

Equivalently, 2^(m+1) == -1 (mod m), or m divides 2^(m+1) + 1.
The sequence is infinite, see A055685.

Crossrefs

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)

Programs

  • Mathematica
    Select[Range[10^5], Divisible[2^(# + 1) + 1, #] &] (* Robert Price, Oct 11 2018 *)
  • Python
    A296369_list = [n for n in range(1,10**6) if pow(2,n+1,n) == n-1] # Chai Wah Wu, Nov 04 2019

Formula

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

Extensions

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

Views

Author

Max Alekseyev, Dec 11 2017

Keywords

Comments

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.

Crossrefs

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)

Programs

  • Mathematica
    Select[Range[10^6], Divisible[2^(# + 1) - 3, #] &] (* Robert Price, Oct 11 2018 *)

Formula

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

A240942 Numbers k that divide 2^k + 9.

Original entry on oeis.org

1, 11, 121, 323, 117283, 432091, 4132384531, 15516834659, 15941429747, 98953554491, 3272831195051, 7362974489179, 26306805687881, 33869035218491, 280980898827691
Offset: 1

Views

Author

Derek Orr, Aug 04 2014

Keywords

Comments

No other terms below 10^15. Some larger terms: 53496121130110340001650284048539458491, 136243118444105327963550175410279542214992801356720577. - Max Alekseyev, Sep 29 2016

Examples

			2^11 + 9 = 2057 is divisible by 11. Thus 11 is a term of this sequence.
		

Crossrefs

Programs

  • Maple
    select(n -> 9 + 2 &^ n mod n = 0, [$1..10^6]); # Robert Israel, Aug 04 2014
  • PARI
    for(n=1,10^9, if(Mod(2,n)^n==-9, print1(n,", "); ); );

Extensions

a(7)-a(10) from Lars Blomberg, Nov 05 2014
a(11)-a(15) from Max Alekseyev, Sep 29 2016

A318970 a(1) = 3; for n > 1, a(n) = 2^(a(n-1) - 1) + 5.

Original entry on oeis.org

3, 9, 261, 1852673427797059126777135760139006525652319754650249024631321344126610074238981
Offset: 1

Views

Author

Max Alekseyev, Sep 06 2018

Keywords

Comments

a(n) divides a(n+1) for n <= 4, but it is unknown if this divisibility holds for larger n. In other words, it is unknown if this sequence is a subsequence of A245594.
Modulo any m > 1, the sequence stabilizes within the first A227944(m) <= log_2(m) terms. That is, for any n >= A227944(m), we have a(n) == a(A227944(m)) == A318989(m) (mod m).
It follows that the prime divisors of the terms (cf. A318971) are very sparse: if prime p does not divide any of the first log_2(p) terms, then p does not divide any term.

Crossrefs

Programs

  • Magma
    [n le 1 select 3 else 2^(Self(n-1)-1)+5: n in [1..4]]; // Vincenzo Librandi, Sep 07 2018
  • Mathematica
    RecurrenceTable[{a[1]==3, a[n]==2^(a[n-1] - 1) + 5}, a, {n, 4}] (* Vincenzo Librandi, Sep 07 2018 *)

A318971 Primes that divide at least one term of A318970.

Original entry on oeis.org

3, 29, 31821709567, 28480625878963
Offset: 1

Views

Author

Max Alekseyev, Sep 06 2018

Keywords

Comments

No other terms below 10^14.
If prime p does not divide any of the first A227944(p) <= log_2(p) terms of A318970, then p does not divide any term of A318970, i.e., p does not belong to this sequence.
(2^260+5)/261 is a term (76-digit prime). Hence, a(5) <= (2^260+5)/261.
Any prime p with A318989(p)=0 belongs to this sequence. However, it is unknown if there is a term p with nonzero A318989(p).

Examples

			a(1)=3 divides A318970(k) for all k >= 1.
a(2)=29 divides A318970(k) for all k >= 3.
a(3)=31821709567 divides A318970(k) for all k >= 8.
a(4)=28480625878963 divides A318970(k) for all k >= 11.
		

Crossrefs

A334634 Numbers m that divide 2^m + 11.

Original entry on oeis.org

1, 13, 16043199041, 91118493923, 28047837698634913
Offset: 1

Views

Author

Max Alekseyev, Sep 10 2020

Keywords

Comments

Equivalently, numbers m such that 2^m == -11 (mod m).
No other terms below 10^17.

Crossrefs

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

Extensions

a(5) from Sergey Paramonov, Oct 10 2021
Showing 1-7 of 7 results.