|
%I #8 Feb 13 2022 04:19:24
%S 1,2,7,17,47,102,255,556,1272,2766,6143,13183,28671,61182,131017,
%T 277952,589823,1243800,2621439,5502191,11534073,24111102,50331647,
%U 104843732,218103760,452956158,939522816,1946095599,4026531839,8321365194
%N Total number of parts in all compositions of n into relatively prime parts.
%F Sum_{d|n} mu(n/d)*(d+1)*2^(d-2).
%F G.f.: Sum_{k>=0} mu(k)*x^k*(1-x^k)/(1-2*x^k)^2.
%F Equals A054525 * A007318 * [1,2,3,...]. - _Gary W. Adamson_, Jun 11 2007
%t f[n_] := Block[{d = Divisors[n]}, (Plus @@ (MoebiusMu[n/d]*(d + 1)*2^(d - 2)))]; Table[ f[n], {n, 1, 30}]
%Y Cf. A001792, A000740.
%Y Cf. A007318, A054525.
%K easy,nonn
%O 1,2
%A _Vladeta Jovovic_, Aug 13 2003
%E More terms from _Robert G. Wilson v_, Aug 15 2003
|
