|
%I #16 Feb 28 2023 09:41:02
%S 2,15,105,737,5160,36120,252842,1769895,12389265,86724857,607074000,
%T 4249518000,29746626002,208226382015,1457584674105,10203092718737,
%U 71421649031160,499951543218120,3499660802526842
%N Base 7 digits are, in order, the first n terms of the periodic sequence with initial period 2,1,0.
%H Vincenzo Librandi, <a href="/A037524/b037524.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (7,0,1,-7).
%F G.f.: x*(x+2) / ((x-1)*(7*x-1)*(x^2+x+1)). [_Colin Barker_, Jan 12 2013]
%t CoefficientList[Series[(x + 2)/((x - 1) (7 x - 1) (x^2 + x + 1)), {x, 0, 30}], x] (* _Vincenzo Librandi_, Oct 21 2013 *)
%t Table[FromDigits[PadRight[{},n,{2,1,0}],7],{n,20}] (* or *) LinearRecurrence[{7,0,1,-7},{2,15,105,737},20] (* _Harvey P. Dale_, Feb 28 2023 *)
%K nonn,base,easy
%O 1,1
%A _Clark Kimberling_
|
