%I #12 Dec 31 2020 13:40:06
%S 1,0,0,-6,0,0,360,-5040,0,-60480,3628800,-39916800,19958400,
%T -3113510400,130767436800,-1318571654400,3487131648000,
%U -355687428096000,12813639597158400,-126713646259200000,1013709170073600000,-85161707377883136000,2819368492175499264000
%N E.g.f.: exp(x^3/(x^4 - 1)).
%F E.g.f.: Product_{k>0} exp(x^(-(4*k-1))).
%t With[{nn=30},CoefficientList[Series[Exp[x^3/(x^4-1)],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Dec 31 2020 *)
%o (PARI) N=66; x='x+O('x^N); Vec(serlaplace(exp(x^3/(x^4-1))))
%o (PARI) N=66; x='x+O('x^N); Vec(serlaplace(1/prod(k=1, N, exp(x^(4*k-1)))))
%Y E.g.f.: Product_{k>0} exp(x^(-(m*k-1))): A293532 (m=2), A293567 (m=3), this sequence (m=4).
%Y Cf. A293526.
%K sign
%O 0,4
%A _Seiichi Manyama_, Oct 12 2017
|