A038082 Number of n-node rooted identity trees of height at most 3.
1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1
Offset: 1
Programs
-
Mathematica
Drop[CoefficientList[Series[x(1+x)(1+x^2)(1+x^3)(1+x^4),{x,0,11}],x],1] (* Geoffrey Critzer, Aug 01 2013 *)