|
%I #12 Sep 08 2022 08:44:52
%S 1,10,80,643,5145,41162,329296,2634371,21074969,168599754,1348798032,
%T 10790384259,86323074073,690584592586,5524676740688,44197413925507,
%U 353579311404057,2828634491232458,22629075929859664,181032607438877315
%N Base 8 digits are, in order, the first n terms of the periodic sequence with initial period 1,2,0,3.
%H Vincenzo Librandi, <a href="/A037692/b037692.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (8,0,0,1,-8).
%F G.f.: ( x*(1+2*x+3*x^3) ) / ( (x-1)*(8*x-1)*(1+x)*(x^2+1) ). - _R. J. Mathar_, Oct 11 2015
%t CoefficientList[Series[(1 + 2*x + 3*x^3)/((x - 1)*(8*x - 1)*(1 + x)*(x^2 + 1)), {x, 0, 20}], x] (* _Wesley Ivan Hurt_, Feb 02 2017 *)
%t LinearRecurrence[{8, 0, 0, 1, -8}, {1, 10, 80, 643, 5145}, 20] (* _Vincenzo Librandi_, Feb 03 2017 *)
%o (Magma) I:=[1,10,80,643,5145]; [n le 5 select I[n] else 8*Self(n-1)+Self(n-4)-8*Self(n-5): n in [1..20]]; // _Vincenzo Librandi_, Feb 03 2017
%K nonn,base,easy
%O 1,2
%A _Clark Kimberling_
|
