|
%I #7 Jul 30 2015 22:16:47
%S 1,0,1,0,1,0,1,1,1,1,1,1,2,1,3,1,3,1,3,2,3,3,3,3,4,3,5,3,6,3,6,4,6,5,
%T 6,6,7,6,8,6,9,6,10,7,10,8,10,9,11,10,12,10,13,10,14,11,15,12,15,13,
%U 16,14,17,15,18,15,19,16,20
%N Expansion of 1/((1-x^2)(1-x^7)(1-x^12)).
%H <a href="/index/Rec#order_21">Index entries for linear recurrences with constant coefficients</a>, signature (0, 1, 0, 0, 0, 0, 1, 0, -1, 0, 0, 1, 0, -1, 0, 0, 0, 0, -1, 0, 1).
%F a(0)=1, a(1)=0, a(2)=1, a(3)=0, a(4)=1, a(5)=0, a(6)=1, a(7)=1, a(8)=1, a(9)=1, a(10)=1, a(11)=1, a(12)=2, a(13)=1, a(14)=3, a(15)=1, a(16)=3, a(17)=1, a(18)=3, a(19)=2, a(20)=3, a(n)=a(n-2)+a(n-7)-a(n-9)+ a(n-12)- a(n-14)- a(n-19)+a(n-21). - _Harvey P. Dale_, Oct 14 2014
%t CoefficientList[Series[1/((1-x^2)(1-x^7)(1-x^12)),{x,0,120}],x] (* or *) LinearRecurrence[{0,1,0,0,0,0,1,0,-1,0,0,1,0,-1,0,0,0,0,-1,0,1},{1,0,1,0,1,0,1,1,1,1,1,1,2,1,3,1,3,1,3,2,3},120] (* _Harvey P. Dale_, Oct 14 2014 *)
%K nonn
%O 0,13
%A _N. J. A. Sloane_.
|
