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

A096854 a(n) = A062402(2^n-1).

Original entry on oeis.org

1, 3, 12, 15, 72, 91, 312, 255, 1240, 1860, 4123, 5080, 26208, 34200, 93600, 65535, 334368, 416560, 1420800, 1596364, 6146800, 5949696, 20485332, 23788842, 120519630, 194016600, 358132380, 458803800, 1674738000, 2166798816, 6045990912, 4294967295, 22739738112, 37862623140
Offset: 1

Views

Author

Labos Elemer, Jul 19 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Table[DivisorSigma[1, EulerPhi[2^n - 1]], {n, 1, 30}]
  • PARI
    a(n) = sigma(eulerphi(2^n-1)); \\ Michel Marcus, Aug 30 2019

Formula

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

Extensions

More terms from Michel Marcus, Aug 30 2019

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.