A131575 First differences of A131572.
1, 1, 0, 2, 0, 4, 0, 8, 0, 16, 0, 32, 0, 64, 0, 128, 0, 256, 0, 512, 0, 1024, 0, 2048, 0, 4096, 0, 8192, 0, 16384, 0, 32768, 0, 65536, 0, 131072, 0, 262144, 0, 524288, 0, 1048576, 0, 2097152, 0, 4194304, 0, 8388608, 0
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (0, 2).
Programs
-
Mathematica
Differences[LinearRecurrence[{0,2},{0,1,2},50]] (* or *) LinearRecurrence[ {0, 2}, {1, 1, 0}, 50] (* or *) Join[{1},Riffle[2^Range[0,30],0]] (* Harvey P. Dale, Jul 10 2018 *)
Formula
a(n) = A077957(n-1), n>0.
G.f.: (1 + x - 2x^2)/(1-2x^2). - Philippe Deléham, Oct 01 2011
Extensions
Edited by R. J. Mathar, Jul 16 2008
More terms from Philippe Deléham, Oct 01 2011
Comments
, with s(1)=1 and with s(i+1)=s(i) for odd i. - Dennis P. Walsh, Sep 06 2018