Search: id:A004111 Results 1-1 of 1 results found. %I A004111 M0796 %S A004111 0,1,1,1,2,3,6,12,25,52,113,247,548,1226,2770,6299,14426,33209, %T A004111 76851,178618,416848,976296,2294224,5407384,12780394,30283120,71924647, %U A004111 171196956,408310668,975662480,2335443077,5599508648,13446130438 %N A004111 Number of rooted identity trees with n nodes (trees with distinct subtrees). %C A004111 Shifts left under WEIGH transform. - Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Jan 17 2007 %D A004111 F. Bergeron, G. Labelle and P. Leroux, Combinatorial Species and Tree-Like Structures, Camb. 1998, p. 330. %D A004111 P. J. Cameron, Some sequences of integers, Discrete Math., 75 (1989), 89-102; also in "Graph Theory and Combinatorics 1988", ed. B. Bollobas, Annals of Discrete Math., 43 (1989), 89-102. %D A004111 F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 64, Eq. (3.3.15); p. 80, Problem 3.10. %D A004111 F. Harary, R. W. Robinson and A. J. Schwenk, Twenty-step algorithm for determining the asymptotic number of trees of various species, J. Austral. Math. Soc., Series A, 20 (1975), 483-503. Errata: Vol. A 41 (1986), p. 325. %D A004111 D. E. Knuth, Fundamental Algorithms, 3rd Ed., 1997, pp. 386-388. %D A004111 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A004111 T. D. Noe, Table of n, a(n) for n=0..200 %H A004111 INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 56 %H A004111 Index entries for sequences related to rooted trees %F A004111 Recurrence: a(n+1) = (1/n) * sum_{k=1..n} ( sum_{d|k} (-1)^(k/d+1) d*a(d) ) * a(n-k+1). - Mitchell Harris, Dec 02, 2004 %F A004111 G.f.: A(x) = x exp(A(x)-A(x^2)/2+A(x^3)/3-A(x^4)/4+...) %F A004111 Also A(x) = Sum_{n >= 1} a(n)*x^n = x * Product_{n >= 1} (1+x^n)^a(n). %p A004111 spec := [ A, {A=Prod(Z,PowerSet(A))} ]: [ seq(combstruct[count](spec, size=n), n=0..52) ]; %t A004111 s[ n_, k_ ] := s[ n, k ]=a[ n+1-k ]+If[ n<2k, 0, -s[ n-k, k ] ]; a[ 1 ]=1; a[ n_ ] := a[ n ]=Sum[ a[ i ]s[ n-1, i ]i, {i, 1, n-1} ]/(n-1); Table[ a[ i ], {i, 1, 30} ] (from Robert A. Russell) %Y A004111 Cf. A000009, A000081, A000220. %Y A004111 Sequence in context: A038087 A116379 A116380 this_sequence A032235 A162985 A052523 %Y A004111 Adjacent sequences: A004108 A004109 A004110 this_sequence A004112 A004113 A004114 %K A004111 nonn,easy,nice,eigen %O A004111 0,5 %A A004111 N. J. A. Sloane (njas(AT)research.att.com). Search completed in 0.002 seconds