%I #2 Mar 30 2012 17:34:39
%S 1,0,1,1,1,2,2,3,3,4,5,5,7,8,9,11,13,15,18,21,25,29,34,41,47,56,66,77,
%T 91,107,126,148,174,205,241,283,334,392,461,543,638,751,883,1039,1222,
%U 1437,1691,1989,2339,2752,3237,3807,4479,5268,6197,7289,8574,10086,11863
%N G.f. (x^10 +x^9 +x^8 +.... +x+1) / (x^10 +x^9 -x^7 -x^6 -x^5 -x^4 -x^3 +x +1).
%C Limiting ratio is: a(n+1)/a(n)->1.1762808182599176...
%F G.f.: (1-x^11)/(1-x^2-x^3+x^8+x^9-x^11).
%t p[x_] = Sum[x^i, {i, 0, 10}]/(x^10 + x^9 - x^7 - x^6 - x^5 - x^4 - x^3 + x + 1);;
%t a = Table[SeriesCoefficient[ Series[p[x], {x, 0, 50}], n], {n, 0, 50}]
%Y Cf. A029826
%K nonn
%O 0,6
%A _Roger L. Bagula_, Feb 13 2010
%E Removed unused variables - The Assoc. Editors of the OEIS, Feb 24 2010
|