%I #24 Feb 17 2024 10:30:34
%S 1,13,131,1313,13131,131313,1313131,13131313,131313131,1313131313,
%T 13131313131,131313131313,1313131313131,13131313131313,
%U 131313131313131,1313131313131313,13131313131313131,131313131313131313,1313131313131313131,13131313131313131313
%N Decimal expansion of a(n) is given by the first n terms of the periodic sequence with initial period 1,3.
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (10,1,-10).
%F G.f.: x*(1+3*x) / ( (x-1)*(10*x-1)*(1+x) ). - _R. J. Mathar_, Aug 12 2013
%t Table[FromDigits[PadRight[{},n,{1,3}]],{n,20}] (* _Harvey P. Dale_, Feb 11 2015 *)
%o (PARI) Vec(x*(1+3*x)/((x-1)*(10*x-1)*(1+x)) + O(x^25)) \\ _Jinyuan Wang_, Apr 14 2020
%Y Cf. A156641 (even bisection).
%K nonn,base,easy
%O 1,2
%A _Clark Kimberling_
%E More terms from _Harvey P. Dale_, Feb 11 2015
|