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
Keywords
Programs
-
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 *)
Extensions
Better definition and more terms from R. J. Mathar, Oct 28 2007