login
a(n) = [x] OmegaPolynomial(5, n). OmegaPolynomials are defined in A318146.
3

%I #12 Aug 26 2018 17:24:25

%S 0,1,-125,249250,-2886735625,122209131374375,-14455143383196875000,

%T 4006210678487307667578125,-2297417123000769120910212890625,

%U 2485076260705905645263720799941406250,-4719878705811419698488114573981055908203125

%N a(n) = [x] OmegaPolynomial(5, n). OmegaPolynomials are defined in A318146.

%p # The function OmegaPolynomial is defined in A318146.

%p seq(coeff(OmegaPolynomial(5, n), x, 1), n=0..11);

%t LMlist[m_, len_] := Table[(m n)!, {n, 0, len}]*

%t CoefficientList[Series[Log[MittagLefflerE[m, z]], {z, 0, len}], z];

%t LMlist[5, 13]

%Y Cf. A318253 (case n=5), A318146.

%Y Cf. A000182 (m=2), A293951 (m=3), A273352 (m=4), this seq (m=5).

%K sign

%O 0,3

%A _Peter Luschny_, Aug 22 2018