A133463 Partial sums of the sequence that starts with 2 and is followed by A111575.

2, 3, 4, 5, 6, 9, 12, 15, 18, 27, 36, 45, 54, 81, 108, 135, 162, 243, 324, 405, 486, 729, 972, 1215, 1458, 2187, 2916, 3645, 4374, 6561, 8748, 10935, 13122, 19683, 26244, 32805, 39366, 59049, 78732, 98415, 118098, 177147, 236196, 295245, 354294

Offset: 0

Author

Paul Curtz, Nov 28 2007

Keywords

• nonn

Programs

Maple

A111575 := proc(n) 3^(floor(n/4)) ; end: A133463 := proc(n) 2+add( A111575(i),i=0..n-1) ; end: seq(A133463(n),n=0..80) ; # R. J. Mathar, Jan 12 2008

Mathematica

Accumulate[Join[{2},With[{pt=3^Range[0,15]},Sort[Join[pt,pt,pt,pt]]]]] (* Harvey P. Dale, Jul 21 2021 *)

Formula

a(4n) = 2*A111575(4n). a(4n+1)= 3*A111575(4n+1). a(4n+2)= 4*A111575(4n+2). a(4n+3)= 5*A111575(4n+3). - R. J. Mathar, Jan 12 2008

Extensions

Edited and extended by R. J. Mathar, Jan 12 2008