cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A274389 Main diagonal of rectangular array A274390 of coefficients in the iterations of Euler's tree function (A000169).

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