login
A130759
Partial sums of A130707.
1
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
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
KEYWORD
nonn
AUTHOR
Paul Curtz, Jul 13 2007
EXTENSIONS
Better definition and more terms from R. J. Mathar, Oct 28 2007
STATUS
approved