STATUS
reviewed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A036373
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
STATUS
proposed
reviewed
STATUS
editing
proposed
LINKS
Sean A. Irvine, <a href="/A036373/b036373.txt">Table of n, a(n) for n = 0..121</a>
KEYWORD
nonn,fini,full
STATUS
approved
editing
STATUS
editing
approved
MATHEMATICA
T[0] = {1}; T[n_] := T[n] = Module[{f, g}, f[z_] := Sum[T[n - 1][[i]]*z^(i - 1), {i, 1, Length[T[n - 1]]}]; g = 1 + z*(f[z]^3/6 + f[z^2]*f[z]/2 + f[z^3]/3); CoefficientList[g, z]]; A036373 = T[5] (* Jean-François Alcover, Jan 19 2016, after _Alois P. Heinz_ (A036370) *)
STATUS
approved
editing
STATUS
proposed
approved
STATUS
editing
proposed
MATHEMATICA
T[0] = {1}; T[n_] := T[n] = Module[{f, g}, f[z_] := Sum[T[n - 1][[i]]*z^(i - 1), {i, 1, Length[T[n - 1]]}]; g = 1 + z*(f[z]^3/6 + f[z^2]*f[z]/2 + f[z^3]/3); CoefficientList[g, z]]; A036373 = T[5] (* Jean-François Alcover, Jan 19 2016, after _Alois P.Heinz_ (A036370) *)
CROSSREFS
Cf. A036370.
STATUS
approved
editing
AUTHOR
_N. J. A. Sloane (njas(AT)research.att.com), _, E. M. Rains (rains(AT)caltech.edu)