%I #25 Sep 08 2022 08:44:52
%S 1111111,111,21,13,12,11,10,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
%T 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
%U 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
%N 7 in base n.
%H <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
%F G.f.: x*(1111111-1111000*x-90*x^2-8*x^3-x^4-x^5-x^6-3*x^7)/(1-x). - _Bruno Berselli_, Sep 12 2011
%t Prepend[Table[FromDigits[IntegerDigits[7, n]], {n, 2, 100}], (10^7 - 1)/9] (* _Arkadiusz Wesolowski_, Sep 12 2011 *)
%o (PARI) a(n)=if(n>7,7,[1111111, 111, 21, 13, 12, 11, 10][n]) \\ _Charles R Greathouse IV_, Sep 02 2011
%o (Magma) I:=[1111111,111,21,13,12,11,10]; [n lt 8 select I[n] else 7: n in [1..93]]; // _Bruno Berselli_, Sep 12 2011
%K nonn,base,easy
%O 1,1
%A _N. J. A. Sloane_.
|