A130759 Partial sums of A130707.

1, 3, 5, 7, 11, 21, 43, 87, 173, 343, 683, 1365, 2731, 5463, 10925, 21847, 43691, 87381, 174763, 349527, 699053, 1398103, 2796203, 5592405, 11184811, 22369623, 44739245, 89478487, 178956971, 357913941, 715827883, 1431655767, 2863311533

Offset

0,2

Links

Table of n, a(n) for n=0..32.

Maple

A130707 := proc(n) option remember ; if n <= 2 then op(n+1, [1, 2, 2]) ; else 3*(A130707(n-1)-A130707(n-2))+2*A130707(n-3) ; fi ; end: A130759 := proc(n) add(A130707(i), i=0..n) ; end: seq(A130759(n), n=0..40) ; # R. J. Mathar, Oct 28 2007

Mathematica

Accumulate[LinearRecurrence[{3, -3, 2}, {1, 2, 2}, 40]] (* Harvey P. Dale, May 16 2018 *)

Crossrefs

Sequence in context: A060643 A025077 A186773 * A325155 A038890 A227240

Adjacent sequences: A130756 A130757 A130758 * A130760 A130761 A130762

Keyword

nonn

Author

Paul Curtz, Jul 13 2007

Extensions

Better definition and more terms from R. J. Mathar, Oct 28 2007

Status

approved