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.

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

This page as a plain text file.
%I A274392 #5 Jun 24 2016 22:52:44
%S A274392 1,4,63,2056,112625,9266706,1067280319,163802295616,32300931452769,
%T A274392 7956776354536450,2394142654816299431,863996246301971667600,
%U A274392 368314015001746325448313,183100281424495288847092386,104989565698848905178879275775,68778360046311927838608116567296,51049027217135211093037275781929857,42614907995326324626989103964953188610,39750079580111447237206552931429888023399,41188867531604111691413161924808444678694800,47163303540183246052916530453746351377795346681
%N A274392 A diagonal of rectangular array A274390 of coefficients in the iterations of Euler's tree function (A000169).
%H A274392 Paul D. Hanna, <a href="/A274392/b274392.txt">Table of n, a(n) for n = 1..100</a>
%o A274392 (PARI) {ITERATE(F,n,k) = my(G=x +x*O(x^k)); for(i=1,n,G=subst(G,x,F));G}
%o A274392 {A274390(n,k) = my(TREE = serreverse(x*exp(-x +x*O(x^k)))); k!*polcoeff(ITERATE(TREE,n,k),k)}
%o A274392 /* Print A274390 */
%o A274392 for(n=0,10,for(k=1,10,print1(A274390(n,k),", "));print("..."))
%o A274392 /* Print this sequence, as a diagonal of A274390 */
%o A274392 for(n=1,20,print1(A274390(n,n),", "))
%Y A274392 Cf. A274390, A000169, A274389.
%K A274392 nonn
%O A274392 1,2
%A A274392 _Paul D. Hanna_, Jun 24 2016