A055492
Numbers n such that LCM{1, ..., n} is a minimal number.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 16, 27, 28
Offset: 1
- J. Roberts, Lure of the Integers, Math. Assoc. of America, 1992, page 86.
A212169
List of highly composite numbers (A002182) with an exponent in its prime factorization that is at least as great as the number of positive exponents; intersection of A002182 and A212165.
Original entry on oeis.org
1, 2, 4, 12, 24, 36, 48, 120, 240, 360, 720, 1680, 5040, 10080, 15120, 20160, 25200, 45360, 50400, 110880, 221760, 332640, 554400, 665280, 2882880, 8648640, 14414400, 17297280, 43243200, 294053760
Offset: 1
A002182(62) = 294053760 = 2^7*3^3*5*7*11*13*17 has 7 positive exponents in its prime factorization, including 5 implied 1's. The maximal exponent in its prime factorization is also 7. Therefore, 294053760 is a term of this sequence.
- S. 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.
A212165 also includes all terms in
A006939,
A066120,
A087980,
A130091,
A138534,
A141586,
A166475,
A181555,
A181813-
A181814,
A181818,
A181823-
A181825,
A182763.
-
okQ[n_] := Module[{f = Transpose[FactorInteger[n]][[2]]}, Max[f] >= Length[f]]; a = 0; t = {}; Do[b = DivisorSigma[0, n]; If[b > a, a = b; If[okQ[n], AppendTo[t, n]]], {n, 10^6}]; t (* T. D. Noe, May 24 2012 *)
Showing 1-2 of 2 results.
Comments