|
%I #19 Jul 21 2021 12:44:25
%S 2,13,80,481,2888,17329,103976,623857,3743144,22458865,134753192,
%T 808519153,4851114920,29106689521,174640137128,1047840822769,
%U 6287044936616,37722269619697,226333617718184,1358001706309105
%N Base 6 digits are, in order, the first n terms of the periodic sequence with initial period 2,1.
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (6,1,-6).
%F a(n) = 6a(n-1) + a(n-2) - 6a(n-3).
%F G.f.: x*(2+x) / ( (x-1)*(6*x-1)*(1+x) ). - _R. J. Mathar_, Nov 21 2011
%t Module[{nn=20,d},d=PadRight[{},nn,{2,1}];Table[FromDigits[Take[d,n],6],{n,nn}]] (* or *) LinearRecurrence[{6,1,-6},{2,13,80},20] (* _Harvey P. Dale_, Feb 26 2015 *)
%K nonn,base,easy
%O 1,1
%A _Clark Kimberling_
%E An incorrect recurrence was deleted by _N. J. A. Sloane_, Sep 13 2009
|
