%I #15 Sep 17 2017 22:34:04

%S 1,10,11,110,1010,10100,100100,1001000,10001000,100010000,1000010000,

%T 10000100000,100000100000,1000001000000,10000001000000,

%U 100000010000000,1000000010000000,10000000100000000,100000000100000000,1000000001000000000,10000000001000000000,100000000010000000000,1000000000010000000000

%N Sequence A005418 written in base 2.

%C Union of A163449, A163664 and number 10.

%H G. C. Greubel, <a href="/A164370/b164370.txt">Table of n, a(n) for n = 1..995</a>

%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (10,10,-100).

%F G.f.: x*(800*x^4-99*x^2+1) / ((10*x-1)*(10*x^2-1)). - _Colin Barker_, Sep 23 2013

%t Rest[CoefficientList[Series[x*(800*x^4 - 99*x^2 + 1)/((10*x - 1)*(10*x^2 - 1)), {x, 0, 50}], x]] (* _G. C. Greubel_, Sep 17 2017 *)

%o (PARI)

%o A005418(n)= 2^(n-2) + 2^(n\2-1);

%o b2t(v)=sum(k=1,#v,v[#v+1-k]*10^(k-1));

%o a(n)=b2t(binary( A005418(n)));

%o \\ _Joerg Arndt_, Sep 16 2013

%o (PARI) x='x+O('x^50); Vec(x*(800*x^4-99*x^2+1)/((10*x-1)*(10*x^2-1))) \\ _G. C. Greubel_, Sep 17 2017

%K nonn,base,less,easy

%O 1,2

%A _Jaroslav Krizek_, Aug 14 2009

%E Edited by _Joerg Arndt_, Sep 16 2013