OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..995
Index entries for linear recurrences with constant coefficients, signature (10,10,-100).
FORMULA
G.f.: x*(800*x^4-99*x^2+1) / ((10*x-1)*(10*x^2-1)). - Colin Barker, Sep 23 2013
MATHEMATICA
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 *)
PROG
(PARI)
A005418(n)= 2^(n-2) + 2^(n\2-1);
b2t(v)=sum(k=1, #v, v[#v+1-k]*10^(k-1));
a(n)=b2t(binary( A005418(n)));
\\ Joerg Arndt, Sep 16 2013
(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
CROSSREFS
KEYWORD
nonn,base,less,easy
AUTHOR
Jaroslav Krizek, Aug 14 2009
EXTENSIONS
Edited by Joerg Arndt, Sep 16 2013
STATUS
approved