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-3 of 3 results.

A344983 Decimal expansion of Mersenne prime 2^77232917 - 1.

Original entry on oeis.org

4, 6, 7, 3, 3, 3, 1, 8, 3, 3, 5, 9, 2, 3, 1, 0, 9, 9, 9, 8, 8, 3, 3, 5, 5, 8, 5, 5, 6, 1, 1, 1, 5, 5, 2, 1, 2, 5, 1, 3, 2, 1, 1, 0, 2, 8, 1, 7, 7, 1, 4, 4, 9, 5, 7, 9, 8, 5, 8, 2, 3, 3, 8, 5, 9, 3, 5, 6, 7, 9, 2, 3, 4, 8, 0, 5, 2, 1, 1, 7, 7, 2, 0, 7, 4, 8, 4
Offset: 23249425

Views

Author

Felix Fröhlich, Jun 04 2021

Keywords

Comments

This prime has 23249425 decimal digits and was found by Jon Pace with GIMPS on Dec 26 2017.

Examples

			Prime starts with 46733318335923109998833558556...
  and ends in ...14659217371136582730618069762179071
		

Crossrefs

Cf. decimal expansions of Mersenne primes: A169681 (M127), A169685 (M521), A204063 (M607), A248931 (M1279), A248932 (M2203), A248933 (M2281), A248934 (M3217), A248935 (M4253), A248936 (M4423), A275977 (M9689), A275979 (M9941), A275980 (M11213), A275981 (M19937), A275982 (M21701), A275983 (M23209), A275984 (M44497), A089065 (M13466917), A089578 (M20996011), A117853 (M30402457), A193864 (M43112609), A267875 (M74207281), A344984 (M82589933).

Programs

  • Mathematica
    IntegerDigits[2^77232917 - 1][[;;100]] (* Paolo Xausa, Apr 05 2024 *)
  • PARI
    list(Nmax) = {localprec(Nmax+5); digits(10^frac(77232917*log(2)/log(10))\.1^Nmax)}
    list(200) \\ print initial 200 digits
    
  • Python
    f = open("M77232917.txt", "a")
    f.write(str(pow(2, 77232917)-1))
    f.close() # Karl-Heinz Hofmann, Jun 06 2021
    
  • Python
    from gmpy2 import mpz
    def A344983(n): return int((mpz(2)**77232917-1)//mpz(10)**(46498849-n) % 10) # Chai Wah Wu, Jun 07 2021

A344984 Decimal expansion of Mersenne prime 2^82589933 - 1.

Original entry on oeis.org

1, 4, 8, 8, 9, 4, 4, 4, 5, 7, 4, 2, 0, 4, 1, 3, 2, 5, 5, 4, 7, 8, 0, 6, 4, 5, 8, 4, 7, 2, 3, 9, 7, 9, 1, 6, 6, 0, 3, 0, 2, 6, 2, 7, 3, 9, 9, 2, 7, 9, 5, 3, 2, 4, 1, 8, 5, 2, 7, 1, 2, 8, 9, 4, 2, 5, 2, 1, 3, 2, 3, 9, 3, 6, 1, 0, 6, 4, 4, 7, 5, 3, 1, 0, 3, 0, 9
Offset: 24862048

Views

Author

Felix Fröhlich, Jun 04 2021

Keywords

Comments

This prime has 24862048 decimal digits and was found by Patrick Laroche with GIMPS on Dec 07 2018.

Examples

			Prime starts with 14889444574204132554780645847...
  and ends in ...66457823695074037951210325217902591
		

Crossrefs

Cf. decimal expansions of Mersenne primes: A169681 (M127), A169685 (M521), A204063 (M607), A248931 (M1279), A248932 (M2203), A248933 (M2281), A248934 (M3217), A248935 (M4253), A248936 (M4423), A275977 (M9689), A275979 (M9941), A275980 (M11213), A275981 (M19937), A275982 (M21701), A275983 (M23209), A275984 (M44497), A089065 (M13466917), A089578 (M20996011), A117853 (M30402457), A193864 (M43112609), A267875 (M74207281), A344983 (M77232917).

Programs

  • Mathematica
    IntegerDigits[2^82589933 - 1][[;;100]] (* Paolo Xausa, Apr 05 2024 *)
  • PARI
    list(Nmax) = {localprec(Nmax+5); digits(10^frac(82589933*log(2)/log(10))\.1^Nmax)}
    list(200) \\ print initial 200 digits
    
  • Python
    f = open("M82589933.txt", "a")
    f.write(str(pow(2,82589933)-1))
    f.close() # Karl-Heinz Hofmann, Jun 05 2021
    
  • Python
    from gmpy2 import mpz
    def A344984(n): return int((mpz(2)**82589933-1)//mpz(10)**(49724095-n) % 10) # Chai Wah Wu, Jun 07 2021

A268068 First occurrence of n in the decimal expansion of Mersenne prime 2^74207281 - 1.

Original entry on oeis.org

2, 8, 18, 1, 7, 20, 6, 5, 9, 22, 167, 240, 196, 156, 51, 143, 31, 241, 8, 74, 18, 73, 138, 71, 154, 217, 96, 119, 160, 21, 1, 166, 72, 63, 64, 28, 87, 4, 172, 57, 210, 7, 81, 56, 103, 65, 12, 68, 52, 374, 35, 239, 20, 90, 67, 66, 38, 178, 42, 29, 13, 15, 174, 44, 6
Offset: 0

Views

Author

Michael P. Tilley, Jan 25 2016

Keywords

Comments

The largest known prime as of Jan 07 2016 is 2^74207281 - 1. The number itself contains 22,338,618 digits; all integers with fewer than 7 digits are contained within M74207281. The first number not contained in M74207281 is 1000003, so this sequence stops at a(1000002) = 1505496.

Examples

			The first few digits of M74207281 are 30037641808460618205298609835916605...
Starting with three as the first digit count the position of n from the beginning
  0 is the second digit,
  1 is the eighth digit,
  2 18,
  3 1,
  4 7,
  etc.
		

Crossrefs

Programs

  • Mathematica
    With[{m = IntegerDigits[2^74207281 - 1]}, Array[SequencePosition[m, IntegerDigits[#], 1][[1, 1]] &, 100, 0]] (* Paolo Xausa, Apr 07 2024 *)
Showing 1-3 of 3 results.