|
%I #7 Oct 22 2018 04:57:42
%S 10,44,184,218,400,752,3040,3392,3748,12224,27904,49024,57856,61064,
%T 64594,196352,226304,253808,785920,954368,981520,1822720,3144704,
%U 12580864,14630912,15499264,15722528,16450240,16700300,31522816,50327552
%N Numbers n such that A076078(m)=n for some m, excluding powers of 2.
%C A076078(n) equals the number of sets of distinct positive integers with a least common multiple of n.
%H Charlie Neder, <a href="/A097416/b097416.txt">Table of n, a(n) for n = 1..1205</a>
%t 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}]]
%Y Cf. A076078, A097215.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 17 2004
|
