OFFSET
0,6
LINKS
Gheorghe Coserea, Rows n=0..200, flattened
Pierre Lescanne, Quantitative aspects of linear and affine closed lambda terms, arXiv:1702.03085 [cs.DM], 2017.
FORMULA
EXAMPLE
A(x;t) = t + (1 + t + t^2)*x + (2 + 5*t + 3*t^2 + 2*t^3)*x^2 + (8 + 17*t + 22*t^2 + 10*t^3 + 5*t^4)*x^3 + ...
Triangle starts:
n\k [0] [1] [2] [3] [4] [5] [6] [7] [8] [9]
[0] 0, 1;
[1] 1, 1, 1;
[2] 2, 5, 3, 2;
[3] 8, 17, 22, 10, 5;
[4] 29, 91, 106, 94, 35, 14;
[5] 140, 431, 701, 582, 396, 126, 42;
[6] 661, 2501, 4067, 4544, 2980, 1654, 462, 132;
[7] 3622, 14025, 27394, 31032, 26680, 14598, 6868, 1716, 429;
[8] 19993, 87947, 177018, 236940, 208780, 146862, 69356, 28396, 6435, 1430;
[9] ...
MATHEMATICA
nmax = 10; y[0, t_] := t; y[_, _] = 0;
Do[y[x_, t_] = Series[t + x y[x, t]^2 + x D[y[x, t], t] + x y[x, t], {x, 0, nmax}, {t, 0, nmax}] // Normal, {n, 0, nmax}];
CoefficientList[#, t]& /@ CoefficientList[y[x, t]+O[x]^nmax, x] // Flatten (* Jean-François Alcover, Dec 13 2018 *)
PROG
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gheorghe Coserea, May 23 2017
STATUS
approved