|
%I #18 Sep 08 2022 08:45:51
%S 1,1,1,1,1,1,2,3,4,5,6,8,10,13,17,22,28,37,48,62,80,103,133,172,223,
%T 289,374,483,625,808,1045,1352,1749,2262,2926,3785,4896,6333,8191,
%U 10595,13704,17726,22929,29659,38363,49622,64185,83022,107388,138905,179672
%N Expansion of 1/(1 - x - x^6 - x^11 + x^12).
%C The ratio a(n+1)/a(n) is 1.2934859531254534... for n->infinity.
%H G. C. Greubel, <a href="/A175773/b175773.txt">Table of n, a(n) for n = 0..1000</a>
%H Michael Mossinghoff, <a href="http://www.cecm.sfu.ca/~mjm/Lehmer/lists/SalemList.html">Small Salem numbers</a>
%H <a href="/index/Rec#order_12">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,0,1,0,0,0,0,1,-1).
%F G.f.: 1/((1 - x + x^2)*(1 - x^2 - x^3 + x^5 - x^7 - x^8 + x^10)).
%F a(n) = a(n-1) + a(n-6) + a(n-11) - a(n-12), n >= 12. - _Franck Maminirina Ramaharo_, Oct 31 2018
%t CoefficientList[Series[1/(1 - x - x^6 - x^11 + x^12), {x, 0, 50}], x]
%o (PARI) x='x+O('x^50); Vec(1/(1-x-x^6-x^11+x^12)) \\ _G. C. Greubel_, Nov 03 2018
%o (Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1-x-x^6-x^11+x^12))); // _G. C. Greubel_, Nov 03 2018
%Y Cf. A175739.
%Y Cf. A029826, A117791, A143419, A143438, A143472, A143619, A143644, A147663, A173908, A173911, A173924, A173925, A174522, A175740, A175772, A175782, A181600, A204631, A225391, A225393, A225394, A225482, A225499.
%K nonn,easy
%O 0,7
%A _Roger L. Bagula_, Dec 04 2010
|
