|
%I #17 Jan 17 2019 17:12:27
%S 1,1,1,1,2,3,3,3,4,5,7,7,8,9,11,13,14,15,17,19,23,24,26,28,32,36,38,
%T 40,44,48,54,56,60,64,70,76,80,84,90,96,105,109,115,121,130,139,145,
%U 151,160,169,181,187,196,205,217,229,238,247,259,271,287,296,308
%N Expansion of 1/((1-x)*(1-x^4)*(1-x^5)*(1-x^10)).
%C Number of partitions of n into parts 1, 4, 5 and 10. - _Ilya Gutkovskiy_, May 17 2017
%H <a href="/index/Rec#order_20">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,1,0,-1,0,0,-1,2,-1,0,0, -1,0,1,0,0,1,-1).
%t CoefficientList[Series[1/((1 - x)*(1 - x^4)*(1 - x^5)*(1 - x^10)), {x, 0, 50}], x] (* _G. C. Greubel_, May 17 2017 *)
%t LinearRecurrence[{1,0,0,1,0,-1,0,0,-1,2,-1,0,0,-1,0,1,0,0,1,-1},{1,1,1,1,2,3,3,3,4,5,7,7,8,9,11,13,14,15,17,19},70] (* _Harvey P. Dale_, Jan 17 2019 *)
%o (PARI) a(n)=round((n+10)*(2*n^2+40*n+129+15*(-1)^n)/2400+(n\5+1)*[2,0,-1,-1,0][n%5+1]/10+(n%2)*(-1)^(n\2)/8) \\ _Tani Akinari_, May 22 2014
%o (PARI) x='x+O('x^50); Vec(1/((1 - x)*(1 - x^4)*(1 - x^5)*(1 - x^10))) \\ _G. C. Greubel_, May 17 2017
%K nonn
%O 0,5
%A _N. J. A. Sloane_
|
