|
%I #18 Jul 25 2023 17:31:59
%S 0,1,6,22,56,133,252,484,798,1344,2002,3157,4368,6441,8630,12112,
%T 15504,21274,26334,35014,42762,55133,65780,84349,98336,123124,143304,
%U 176373,201376,247380,278256,336744,379000,451402,502250,600055,658008,775733,855042
%N Expansion of Sum_{k>0} x^(2*k)/(1-x^k)^6.
%H Seiichi Manyama, <a href="/A363606/b363606.txt">Table of n, a(n) for n = 1..10000</a>
%F G.f.: Sum_{k>0} binomial(k+3,5) * x^k/(1 - x^k).
%F a(n) = Sum_{d|n} binomial(d+3,5).
%t a[n_] := DivisorSum[n, Binomial[# + 3, 5] &]; Array[a, 40] (* _Amiram Eldar_, Jul 25 2023 *)
%o (PARI) my(N=40, x='x+O('x^N)); concat(0, Vec(sum(k=1, N, x^(2*k)/(1-x^k)^6)))
%Y Cf. A032741, A065608, A069153, A363604, A363605.
%K nonn,easy
%O 1,3
%A _Seiichi Manyama_, Jun 11 2023
|
