OFFSET
0,2
COMMENTS
Row sums of triangle A133569. - Gary W. Adamson, Sep 16 2007
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,4)
FORMULA
a(n) = 2*A084221(n-1) for all n >= 1. [Corrected by M. F. Hasler, Feb 09 2018]
a(0)=1, a(1)=2, a(2)=6, a(n)=4*a(n-2) for n>=3. G.f.: (1+2*x+2*x^2)/(1-4*x^2). - Philippe Deléham, Dec 14 2007
a(n-1) = (5*2^n - (-2)^n)/8 for n>1. - Ralf Stephan, Jul 18 2013
EXAMPLE
Binary.................Decimal
1............................1
10...........................2
110..........................6
1000.........................8
11000.......................24
100000......................32
1100000.....................96
10000000...................128
110000000..................384
1000000000.................512
11000000000...............1536
100000000000..............2048
1100000000000.............6144
10000000000000............8192, etc. - Philippe Deléham, Mar 20 2014
MATHEMATICA
a[n_] := If[Mod[n, 2] == 0, 2^(n + 1), 2^n + 2^(n + 1)] Table[a[n], {n, 0, 30}]
Join[{1, 2}, LinearRecurrence[{0, 4}, {6, 8}, 40]] (* Vincenzo Librandi, Feb 10 2018 *)
PROG
(PARI) A122756(n)=(3-bittest(n, 0))<<(n-1) \\ M. F. Hasler, Feb 09 2018
(Magma) [1] cat [(5*2^n-(-2)^n)/8: n in [2..40]]; // Vincenzo Librandi, Feb 10 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Sep 21 2006
EXTENSIONS
Edited by N. J. A. Sloane, Dec 14 2007
STATUS
approved