A097212 Numbers n such that A076078(n) > A076078(m) for all m < n, A076078(n) being the number of sets of distinct positive integers with a least common multiple of n.
1, 2, 4, 6, 12, 24, 30, 36, 48, 60, 120, 180, 240, 360, 420, 720, 840, 1260, 1680, 2520, 4620, 5040, 7560, 9240, 10080, 12600, 13860, 15120, 18480, 20160, 25200, 27720, 45360, 50400, 55440, 83160, 110880, 138600, 166320, 221760, 277200, 332640
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..500
Crossrefs
Programs
-
Mathematica
f[n_] := Block[{d = Divisors[n]}, Plus @@ (MoebiusMu[n/d](2^DivisorSigma[0, d] - 1))]; b = 0; l = {}; Do[c = a[n]; If[c > b, b = c; AppendTo[l, n]], {n, 10^6}]; l (* Robert G. Wilson v, Aug 13 2004 *)
Extensions
More terms from Robert G. Wilson v, Aug 13 2004
Comments