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.

A308912 Highly composite numbers of the 3rd order: numbers k with d_3(k) > d_3(j) for all j < k, where d_3(k) is the 3rd Piltz function, the number of ways of decomposing k into 3 factors (A007425).

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 24, 36, 48, 60, 72, 96, 120, 180, 240, 360, 480, 720, 1080, 1260, 1440, 1680, 2160, 2520, 3360, 4320, 5040, 7560, 10080, 15120, 20160, 25200, 30240, 40320, 45360, 50400, 55440, 60480, 75600, 90720, 100800, 110880, 151200, 166320, 221760
Offset: 1

Views

Author

Amiram Eldar, Jun 30 2019

Keywords

Comments

Pillai defined highly composite numbers of the t-th order and numbers k with d_t(k) > d_t(j) for all j < k, where d_t(k) is the t-th Piltz function, the number of ways of decomposing k into t factors. The highly composite numbers (A002182) are highly composite numbers of the 2nd order.
The corresponding record values are 1, 3, 6, 9, 10, 18, 30, 36, 45, 54, 60, 63, 90, 108, ... (see the link for more terms).

Crossrefs

Programs

  • Mathematica
    f[p_, e_] := (e+1)*(e+2)/2;  a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; am=0; s={}; Do[a1=a[n]; If[a1 > am, am=a1; AppendTo[s, n]], {n, 1, 100000}]; s