A038092 Number of n-node rooted identity trees of height 8.
1, 7, 27, 82, 221, 553, 1323, 3078, 7019, 15765, 34992, 76922, 167697, 363020, 780937, 1670786, 3557060, 7539856, 15918972, 33490067, 70226358, 146822144, 306121101, 636648253, 1320964417, 2734901341, 5650875038, 11653922283, 23991828701, 49310264440
Offset: 9
Links
Programs
-
Mathematica
f[n_]:=Nest[CoefficientList[Series[Product[(1+x^i)^#[[i]],{i,1,Length[#]}],{x,0,50}],x]&,{1},n];Drop[f[8]-PadRight[f[7],Length[f[8]]],8] (* Geoffrey Critzer, Aug 01 2013 *)
Comments