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

A138863 Concatenation of first two digits and last two digits of n-th Mersenne prime A000668(n).

Original entry on oeis.org

33, 77, 3131, 1227, 8191, 1371, 5287, 2147, 2351, 6111, 1627, 1727, 6851, 5327, 1087, 1407, 4451, 2571, 1991, 2807, 4711, 3451, 2891, 4371, 4451, 4011, 8571, 5307, 5207, 5111, 7447, 1787, 1291, 4127, 8111, 6251, 1271, 4391, 9271, 1247, 2907, 1247, 3171, 1271, 2027, 1651, 3111
Offset: 1

Views

Author

Omar E. Pol, Apr 02 2008

Keywords

Crossrefs

Extensions

More terms from Jinyuan Wang, Mar 14 2020

A138865 Last 3 digits of n-th Mersenne prime A000668(n).

Original entry on oeis.org

3, 7, 31, 127, 191, 71, 287, 647, 951, 111, 127, 727, 151, 127, 87, 7, 351, 71, 991, 607, 111, 551, 191, 471, 751, 511, 671, 207, 7, 311, 447, 887, 591, 527, 711, 151, 271, 791, 71, 47, 407, 247, 871, 871, 927, 751, 511
Offset: 1

Views

Author

Omar E. Pol, Apr 02 2008

Keywords

Crossrefs

Programs

  • Mathematica
    Array[Mod[2^MersennePrimeExponent[#] - 1, 1000] &, 45] (* Michael De Vlieger, Aug 05 2018 *)

Extensions

a(40)-a(47) from Ivan Panchenko, Apr 03 2018

A138867 First two digits of n-th even superperfect number A061652(n).

Original entry on oeis.org

2, 4, 16, 64, 40, 65, 26, 10, 11, 30, 81, 85, 34, 26, 52, 73, 22, 12, 95, 14, 23, 17, 14, 21, 22, 20, 42, 26, 26, 25, 37, 87, 64, 20, 40, 31, 63, 21, 46, 62, 14, 61, 15, 62, 10, 84, 15
Offset: 1

Views

Author

Omar E. Pol, Apr 02 2008

Keywords

Comments

Also, first two digits of n-th superperfect number A019279(n), if there are no odd superperfect numbers.

Crossrefs

Extensions

a(12)-a(31) from R. J. Mathar, Feb 05 2010
a(32)-a(47) from Jinyuan Wang, Mar 14 2020

A138873 First two digits of n-th even perfect number.

Original entry on oeis.org

6, 28, 49, 81, 33, 85, 13, 23, 26, 19, 13, 14, 23, 14, 54, 10, 99, 33, 18, 40, 11, 59, 39, 93, 10, 81, 36, 14, 13, 13, 27, 15, 83, 84, 33, 19, 81, 95, 42, 79, 44, 74, 49, 77, 20, 14, 50
Offset: 1

Views

Author

Omar E. Pol, Apr 02 2008

Keywords

Crossrefs

First 2 digits of sequence A138875. [Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009]

Programs

  • Mathematica
    Join[{6},FromDigits[Take[IntegerDigits[#],2]]&/@PerfectNumber[Range[2,50]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 26 2020 *)

Extensions

a(15)-a(31) added by Steven Bi (chenhsi(AT)stanford.edu), Jan 18 2009
Definition changed (inserting the word "even") and a(37)-a(47) added by Ivan Panchenko, Aug 04 2018
Showing 1-4 of 4 results.