A131202 A coefficient tree from the list partition transform relating A111884, A084358, A000262, A094587, A128229 and A131758.
1, -1, 3, 1, -8, 13, 1, 11, -61, 73, -19, 66, 66, -494, 501, 151, -993, 2102, -298, -4293, 4051, -1091, 9528, -33249, 52816, -21069, -39528, 37633, 7841, -82857, 378261, -929101, 1207299, -560187, -375289, 394353, -56519, 692422, -3832928, 12255802, -23834210, 26643994, -12620672, -3481562, 4596553
Offset: 1
Programs
-
Mathematica
CoefficientList[#, t] & /@ (# Range@Length@#!) &@ Rest@CoefficientList[(t-1) / (t - Exp[x(t-1)/(1-x(t-1))]) + O[x]^10 // Simplify, x] // Flatten (* Andrey Zabolotskiy, Feb 19 2024 *)
-
PARI
T(n) = [Vecrev(p) | p<-Vec(-1 + serlaplace((y-1) / (y - exp(x*(y-1)/(1-x*(y-1)) + O(x*x^n) ))))] { my(A=T(7)); for(i=1, #A, print(A[i])) } \\ Andrew Howroyd, Feb 19 2024
Formula
E.g.f. for the row polynomials, which are a(n, t) for n > 0, is:
(t-1) / (t - exp(x*(t-1)/(1-x*(t-1)))).
E.g.f. for the polynomials b(n, t), introduced above, is the reciprocal of that.
Extensions
Rows 7-9 added and offset changed by Andrey Zabolotskiy, Feb 19 2024
Comments