%I #7 Jul 08 2025 19:05:26

%S 1,1,1,1,1,1,2,2,3,4,4,4,5,5,6,7,8,9,11,11,12,13,14,15,18,19,21,23,24,

%T 25,28,29,32,35,37,39,43,44,47,50,53,56,61,63,67,71,74,77,83,86,91,96,

%U 100,104,111,114,120,126

%N Expansion of 1/((1-x)(1-x^6)(1-x^8)(1-x^9)).

%H <a href="/index/Rec#order_24">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 0, 0, 1, -1, 1, 0, -1, 0, 0, 0, -1, 0, 1, -1, 1, 0, 0, 0, 0, 1, -1).

%F a(0)=1, a(1)=1, a(2)=1, a(3)=1, a(4)=1, a(5)=1, a(6)=2, a(7)=2, a(8)=3, a(9)=4, a(10)=4, a(11)=4, a(12)=5, a(13)=5, a(14)=6, a(15)=7, a(16)=8, a(17)=9, a(18)=11, a(19)=11, a(20)=12, a(21)=13, a(22)=14, a(23)=15, a(n)=a(n-1)+a(n-6)-a(n-7)+a(n-8)-a(n-10)-a(n-14)+a(n-16)- a(n-17)+ a(n-18)+ a(n-23)-a (n-24). - _Harvey P. Dale_, Jan 02 2016

%t CoefficientList[Series[1/((1-x)(1-x^6)(1-x^8)(1-x^9)),{x,0,60}],x] (* or *) LinearRecurrence[{1,0,0,0,0,1,-1,1,0,-1,0,0,0,-1,0,1,-1,1,0,0,0,0,1,-1},{1,1,1,1,1,1,2,2,3,4,4,4,5,5,6,7,8,9,11,11,12,13,14,15},60] (* _Harvey P. Dale_, Jan 02 2016 *)

%K nonn

%O 0,7

%A _N. J. A. Sloane_