A130759 - OEIS

%I #7 May 16 2018 09:31:10

%S 1,3,5,7,11,21,43,87,173,343,683,1365,2731,5463,10925,21847,43691,

%T 87381,174763,349527,699053,1398103,2796203,5592405,11184811,22369623,

%U 44739245,89478487,178956971,357913941,715827883,1431655767,2863311533

%N Partial sums of A130707.

%p 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

%t Accumulate[LinearRecurrence[{3,-3,2},{1,2,2},40]] (* _Harvey P. Dale_, May 16 2018 *)

%K nonn

%O 0,2

%A _Paul Curtz_, Jul 13 2007

%E Better definition and more terms from _R. J. Mathar_, Oct 28 2007