|
%I #14 Mar 08 2024 11:57:43
%S 1,101,10101,1011101,101111101,10111111101,1011111111101,
%T 101111111111101,10111111111111101,1011111111111111101,
%U 101111111111111111101,10111111111111111111101
%N Bisection of A147757.
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (101,-100).
%F G.f. x*(1+10*x)*(100*x^2-10*x+1)/( (100*x-1)*(x-1)) .- R. J. Mathar, Aug 24 2011
%e n ...... a(n)
%e 1 ....... 1
%e 2 ...... 101
%e 3 ..... 10101
%e 4 .... 1011101
%e 5 ... 101111101
%t Rest[CoefficientList[Series[x(1+10x)(100x^2-10x+1)/((100x-1)(x-1)),{x,0,20}],x]] (* or *) Join[{1,101},Table[FromDigits[Join[{1,0},PadRight[ {},2n+1,1],{0,1}]],{n,0,20}]] (* _Harvey P. Dale_, Dec 26 2014 *)
%Y Cf. A135577, A138120, A138146, A147757, A152756.
%K easy,nonn,base
%O 1,2
%A _Omar E. Pol_, Dec 14 2008
|
