%I A034823
%S A034823 1,1,1,2,4,9,20,48,114,278,676,1653,4027,9816,23843,57833,139908,337856,
%T A034823 814127,1958524,4703322,11278027,27003707,64571463,154207616,367841733,
%U A034823 876450881,2086098057,4960230005,11782852600,27963874395,66307010599
%N A034823 Number of n-node rooted trees of height at most 6.
%H A034823 N. J. A. Sloane, <a href="b034823.txt">Table of n, a(n) for n=0..200</
a>
%H A034823 N. J. A. Sloane, <a href="transforms.txt">Transforms</a>
%H A034823 <a href="Sindx_Ro.html#rooted">Index entries for sequences related to
rooted trees</a>
%F A034823 Take Euler transform of A001385 and shift right. (Christian G. Bower
(bowerc(AT)usa.net)).
%p A034823 For Maple program see link in A000235.
%p A034823 with (numtheory): etr:= proc(p) local b; b:=proc(n) option remember;
local d,j; if n=0 then 1 else add (add (d*p(d), d=divisors(j)) *b(n-j),
j=1..n)/n fi end end: shr:= proc(p) n->`if`(n=0, 1,p(n-1)) end: b[0]:=
etr(n->1): for j from 1 to 4 do b[j]:= etr (shr(b[j-1])) od: a:=
shr(b[4]): seq (a(n), n=0..31); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de),
Sep 08 2008]
%Y A034823 See A001383 for details.
%Y A034823 Sequence in context: A091500 A052329 A036624 this_sequence A036625 A003019
A036626
%Y A034823 Adjacent sequences: A034820 A034821 A034822 this_sequence A034824 A034825
A034826
%K A034823 nonn
%O A034823 0,4
%A A034823 N. J. A. Sloane (njas(AT)research.att.com).
|