proposed
approved
proposed
approved
editing
proposed
Row lengths are: A009490.
proposed
editing
editing
proposed
1;
1;
4;
21, 6;
148, 84, 24;
1305, 1160, 540, 120;
13806, 17610, 10560, 3960, 720;
170401, 296772, 214410, 104160, 32760, 5040;
...
...
proposed
editing
editing
proposed
C.fCf. A216242.
proposed
editing
editing
proposed
nn = 10; Map[Select[#, # > 0 &] &, Table[Range[0, nn]! CoefficientList[ Series[Prepend[Exp[Log[1/(1 - NestList[x Exp[#] &, x Exp[x], nn])]], 0][[k + 1]] - Prepend[Exp[Log[1/(1 - NestList[x Exp[#] &, x Exp[x], nn])]], 0][[k]], {x, 0, nn}], x], {k, 1, nn - 1}] // Transpose] // Grid (* Geoffrey Critzer, Feb 13 2022 *)
C.f. A216242.
approved
editing
Chad Brewbaker, <a href="/A225540/b225540_1.txt">Table of n, a(n) for n = 0..46</a>