%I #23 Sep 08 2022 08:44:51
%S 1,4,16,65,260,1040,4161,16644,66576,266305,1065220,4260880,17043521,
%T 68174084,272696336,1090785345,4363141380,17452565520,69810262081,
%U 279241048324,1116964193296,4467856773185,17871427092740,71485708370960
%N Base-4 digits are, in order, the first n terms of the periodic sequence with initial period 1,0,0.
%H Vincenzo Librandi, <a href="/A033140/b033140.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 (4,0,1,-4).
%F a(n) = +4*a(n-1) +a(n-3) -4*a(n-4). G.f.: x / ( (x-1)*(4*x-1)*(1+x+x^2) ). - R. J. Mathar, Jan 08 2011
%t LinearRecurrence[{4,0,1,-4},{1,4,16,65},30] (* _Vincenzo Librandi_, Jun 21 2012 *)
%t Table[FromDigits[PadRight[{},n,{1,0,0}],4],{n,30}] (* _Harvey P. Dale_, Apr 15 2018 *)
%o (Magma) I:=[1, 4, 16, 65]; [n le 4 select I[n] else 4*Self(n-1)+Self(n-3)-4*Self(n-4): n in [1..30]]; // _Vincenzo Librandi_, Jun 21 2012
%K nonn,base,easy
%O 1,2
%A _Clark Kimberling_
|