|
%I #20 Oct 28 2020 13:09:35
%S 1,4620,135795660,5190977391600,221838126928317900,
%T 10086906430733029017120,477156732636269771364879600,
%U 23199870600247661786357661924000,1150983828787218131441395889200471500,57991163446756752913635026142306805792320,2957727121295876265116937111814024549631408160
%N Coefficient of x^(6*n)*y^(6*n)*z^(6*n) in the expansion of 1/(1-x-y^2-z^3).
%C The other diagonal coefficients are zero.
%H Alois P. Heinz, <a href="/A338337/b338337.txt">Table of n, a(n) for n = 0..200</a>
%F a(n) = (11*n)! / ((2*n)! * (3*n)! * (6*n)!). - _Vaclav Kotesovec_, Oct 28 2020
%p a:= proc(n) local h; 1/(1-x-y^2-z^3); for h in [x, y, z]
%p do coeff(series(%, h, 1+6*n), h, 6*n) od
%p end:
%p seq(a(n), n=0..10); # _Alois P. Heinz_, Oct 23 2020
%t nmax = 10; Flatten[{1, Table[Coefficient[Series[1/(1 - x - y^2 - z^3), {x, 0, 6*n}, {y, 0, 6*n}, {z, 0, 6*n}], x^(6*n)*y^(6*n)*z^(6*n)], {n, 1, nmax}]}] (* _Vaclav Kotesovec_, Oct 23 2020 *)
%Y Cf. A338075, A338076, A338077.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Oct 22 2020
%E More terms from _Alois P. Heinz_, Oct 23 2020
|
