|
%I #5 Mar 21 2015 04:45:53
%S 1,2,4,8,10,16,32,44,64,128,184,218,256,400,512,752,1024,2048,3040,
%T 3392,3748,4096,8192,12224,16384,27904,32768,49024,57856,61064,64594,
%U 65536,131072,196352,226304,253808,262144,524288,785920,954368,981520,1048576
%N Numbers that appear in A076078.
%C A076078(n) = the number of sets of distinct positive integers with a least common multiple of n.
%C All powers of 2 are in the sequence. - _Robert G. Wilson v_, Aug 14 2004
%t f[n_] := Block[{d = Divisors[n]}, Plus @@ (MoebiusMu[n/d](2^DivisorSigma[0, d] - 1))]; Take[ Union[ Table[ f[n], {n, 2^20}]], 42] (* _Robert G. Wilson v_, Aug 14 2004 *)
%Y Cf. A076078, A097211.
%K nonn
%O 1,2
%A _Matthew Vandermast_, Aug 01 2004
|
