|
%I #9 Feb 28 2021 12:16:32
%S 1,1,2,3,5,7,11,15,22,30,42,55,75,97,128,164,212,267,340,423,530,653,
%T 807,984,1204,1455,1761,2112,2534,3015,3590,4242,5013,5888,6912,8070,
%U 9418,10936,12690,14663,16928,19466,22367,25608,29292,33401,38047,43214,49037,55494,62740,70760,79725,89623
%N Number of partitions of n into 10 distinct and relatively prime parts.
%H Alois P. Heinz, <a href="/A341914/b341914.txt">Table of n, a(n) for n = 55..1000</a>
%F G.f.: Sum_{k>=1} mu(k)* x^(55*k) / Product_{j=1..10} (1 - x^(j*k)).
%F a(n) <= A008639(n-55), equality for n<110. - _R. J. Mathar_, Feb 28 2021
%t nmax = 108; CoefficientList[Series[Sum[MoebiusMu[k] x^(55 k)/Product[1 - x^(j k), {j, 1, 10}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 55] &
%Y Cf. A023022, A023030, A023035, A078374, A101271, A339672, A340719, A341868, A341870, A341912, A341913.
%K nonn
%O 55,3
%A _Ilya Gutkovskiy_, Feb 23 2021
|
