|
%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
|
