A097416 Numbers n such that A076078(m)=n for some m, excluding powers of 2.

10, 44, 184, 218, 400, 752, 3040, 3392, 3748, 12224, 27904, 49024, 57856, 61064, 64594, 196352, 226304, 253808, 785920, 954368, 981520, 1822720, 3144704, 12580864, 14630912, 15499264, 15722528, 16450240, 16700300, 31522816, 50327552

Offset: 1

Author

Robert G. Wilson v, Aug 17 2004

Keywords

• nonn

Comments

A076078(n) equals the number of sets of distinct positive integers with a least common multiple of n.

Links

• Charlie Neder, Table of n, a(n) for n = 1..1205

Crossrefs

Cf. A076078, A097215.

Programs

Mathematica

f[n_] := Block[{d = Divisors[n]}, Plus @@ (MoebiusMu[n/d](2^DivisorSigma[0, d] - 1))]; t = Union[ Table[ f[n], {n, 2^20}]]; Complement[ Take[t, 52], Table[2^i, {i, 0, 20}]]