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.

A096853 a(n) = A062401(2^n-1).

Original entry on oeis.org

1, 2, 4, 8, 16, 48, 64, 144, 288, 512, 576, 2304, 4096, 10240, 18432, 36288, 65536, 184320, 262144, 552960, 718848, 1492992, 2822400, 9123840, 13418496, 44695552, 68762880, 106168320, 109486080, 580386816, 1073741824, 2155507200, 2366668800, 6920601600, 12081954816
Offset: 1

Views

Author

Labos Elemer, Jul 19 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Table[ EulerPhi[ DivisorSigma[1, 2^n - 1]], {n, 33}]

Formula

a(n) = A000010(A000203(A000225(n))). - Michel Marcus, Dec 19 2013
a(n) = A000010(A075708(n)). - Amiram Eldar, Jun 04 2024

Extensions

Edited and extended by Robert G. Wilson v, Jul 23 2004
a(33)-a(35) from Amiram Eldar, Jun 04 2024

A096855 a(n) = A062401(2^n + 1).

Original entry on oeis.org

2, 2, 2, 12, 6, 16, 24, 80, 84, 320, 360, 864, 1320, 5456, 5184, 15744, 19800, 52800, 69120, 349520, 370080, 1036800, 1425600, 3640896, 4741632, 13989888, 27091584, 76743040, 94656000, 166387200, 412473600, 1407389952, 1420488192, 3459760128, 6502788864, 14778408960
Offset: 0

Views

Author

Labos Elemer, Jul 19 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Table[ EulerPhi[ DivisorSigma[1, 2^n+1]], {n, 0, 33}]

Formula

a(n) = A000010(A069061(n)). - Amiram Eldar, Jun 04 2024

Extensions

Edited and extended by Robert G. Wilson v, Jul 23 2004
Offset changed to 0, a(0) prepended and two more terms added by Amiram Eldar, Jun 04 2024

A096856 a(n) = A062402(2^n+1).

Original entry on oeis.org

1, 3, 7, 12, 31, 42, 124, 224, 511, 847, 1953, 2688, 12264, 18816, 29127, 72540, 131071, 195048, 558523, 1077440, 3164112, 4552020, 10890040, 10342080, 54525848, 73260781, 155671040, 318848400, 1080311232, 964580240, 3070642080, 4340711424, 13722819600, 19039027200
Offset: 0

Views

Author

Labos Elemer, Jul 19 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Table[DivisorSigma[1, EulerPhi[2^n + 1]], {n, 0, 30}]

Formula

a(n) = A000203(A053285(n)). - Amiram Eldar, Jun 04 2024

Extensions

Offset changed to 0, a(0) prepended and three more terms added by Amiram Eldar, Jun 04 2024
Showing 1-3 of 3 results.