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,1

Links

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

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

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 *)

Crossrefs

Sequence in context: A036027 A036032 A008813 * A187550 A307818 A358033

Adjacent sequences: A133460 A133461 A133462 * A133464 A133465 A133466

Keyword

nonn

Author

Paul Curtz, Nov 28 2007

Extensions

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

Status

approved