cp's OEIS Frontend

A164370 Sequence A005418 written in base 2.

%I A164370 #15 Sep 17 2017 22:34:04
%S A164370 1,10,11,110,1010,10100,100100,1001000,10001000,100010000,1000010000,
%T A164370 10000100000,100000100000,1000001000000,10000001000000,
%U A164370 100000010000000,1000000010000000,10000000100000000,100000000100000000,1000000001000000000,10000000001000000000,100000000010000000000,1000000000010000000000
%N A164370 Sequence A005418 written in base 2.
%C A164370 Union of A163449, A163664 and number 10.
%H A164370 G. C. Greubel, <a href="/A164370/b164370.txt">Table of n, a(n) for n = 1..995</a>
%H A164370 <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (10,10,-100).
%F A164370 G.f.: x*(800*x^4-99*x^2+1) / ((10*x-1)*(10*x^2-1)). - _Colin Barker_, Sep 23 2013
%t A164370 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 A164370 (PARI)
%o A164370 A005418(n)= 2^(n-2) + 2^(n\2-1);
%o A164370 b2t(v)=sum(k=1,#v,v[#v+1-k]*10^(k-1));
%o A164370 a(n)=b2t(binary( A005418(n)));
%o A164370 \\ _Joerg Arndt_, Sep 16 2013
%o A164370 (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 A164370 nonn,base,less,easy
%O A164370 1,2
%A A164370 _Jaroslav Krizek_, Aug 14 2009
%E A164370 Edited by _Joerg Arndt_, Sep 16 2013