|
%I #9 Jun 24 2016 22:43:49
%S 1,2,30,948,50680,4090980,463975764,70311813880,13718193268896,
%T 3348658563980040,999698412743754460,358297471515195652308,
%U 151813934699349280088328,75064081768759279536110316,42833194538353991390132088540,27937122503026656234469859408880,20653210428143999114034181337343616,17178393944175652034128269331788145680,15970217696130529428248774113884778921452,16497536217367322285994072192399435877530380,18836957575278690757486149667782477659475272520
%N Main diagonal of rectangular array A274390 of coefficients in the iterations of Euler's tree function (A000169).
%H Paul D. Hanna, <a href="/A274389/b274389.txt">Table of n, a(n) for n = 0..100</a>
%o (PARI) {ITERATE(F,n,k) = my(G=x +x*O(x^k)); for(i=1,n,G=subst(G,x,F));G}
%o {A274390(n,k) = my(TREE = serreverse(x*exp(-x +x*O(x^k)))); k!*polcoeff(ITERATE(TREE,n,k),k)}
%o /* Print A274390 */
%o for(n=0,10,for(k=1,10,print1(A274390(n,k),", "));print("..."))
%o /* Print this sequence, as the main diagonal of A274390 */
%o for(n=0,20,print1(A274390(n,n+1),", "))
%Y Cf. A274390, A000169, A274392.
%K nonn
%O 0,2
%A _Paul D. Hanna_, Jun 24 2016
|
