A212184 Row n of table gives exponents >= 2 in canonical prime factorization of n-th highly composite number (A002182(n)), in nonincreasing order, or 0 if no such exponent exists.
0, 0, 2, 0, 2, 3, 2, 2, 4, 2, 3, 2, 2, 4, 3, 2, 4, 2, 3, 2, 2, 4, 3, 2, 4, 2, 3, 3, 5, 2, 4, 3, 6, 2, 4, 2, 2, 3, 2, 4, 4, 5, 2, 2, 4, 2, 3, 3, 5, 2, 4, 3, 6, 2, 4, 2, 2, 5, 3, 4, 4, 5, 2, 2, 6, 3, 4, 2, 3, 3, 5, 2, 4, 3, 6, 2, 4, 2, 2, 5, 3, 4, 4, 5, 2, 2, 6
Offset: 1
Examples
First rows read: 0; 0; 2; 0; 2; 3; 2,2; 4; 2; 3; 2,2; 4;... 12 = 2^2*3 has positive exponents 2 and 1 in its canonical prime factorization (1s are often left implicit as exponents). Only exponents that are 2 or greater appear in a number's second signature; therefore, 12's second signature is {2}. Since 12 = A002182(5), row 5 represents the second signature {2}.
References
- Srinivasa Ramanujan, Highly composite numbers, Proc. Lond. Math. Soc. 14 (1915), 347-409; reprinted in Collected Papers, Ed. G. H. Hardy et al., Cambridge 1927; Chelsea, NY, 1962.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..5594 (first 1000 rows)
- Achim Flammenkamp, List of the first 1200 highly composite numbers.
- Srinivasa Ramanujan, Highly Composite Numbers (p. 34).
Programs
-
Mathematica
With[{v = Import["https://oeis.org/A002182/b002182.txt", "Table"][[;; , 2]]}, exp[n_] := Select[FactorInteger[n][[;; , 2]], # > 1 &]; exp /@ v[[1 ;; 100]] /. {} -> {0} // Flatten] (* Amiram Eldar, Jan 20 2025 *)
Comments