A144564 Bisection of A147757.
1, 101, 10101, 1011101, 101111101, 10111111101, 1011111111101, 101111111111101, 10111111111111101, 1011111111111111101, 101111111111111111101, 10111111111111111111101, 1011111111111111111111101, 101111111111111111111111101, 10111111111111111111111111101
Offset: 1
Examples
n ...... a(n) 1 ....... 1 2 ...... 101 3 ..... 10101 4 .... 1011101 5 ... 101111101
Links
- Index entries for linear recurrences with constant coefficients, signature (101,-100).
Programs
-
Mathematica
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 *)
Formula
G.f.: x*(1+10*x)*(100*x^2-10*x+1)/((100*x-1)*(x-1)). - R. J. Mathar, Aug 24 2011
Comments