A170803 Partial sums of A006899.

1, 3, 6, 10, 18, 27, 43, 70, 102, 166, 247, 375, 618, 874, 1386, 2115, 3139, 5187, 7374, 11470, 18031, 26223, 42607, 62290, 95058, 154107, 219643, 350715, 527862, 790006, 1314294, 1845735, 2894311, 4488634, 6585786, 10780090, 15563059, 23951667, 38300574

Offset: 1

Author

N. J. A. Sloane, Dec 12 2009

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A006899, A170804, A170805.

Programs

Haskell

a170803 n = a170803_list !! (n-1)
a170803_list = scanl1 (+) a006899_list -- Reinhard Zumkeller, Oct 09 2013

Python

from sympy import integer_log
def A170803(n): return ((a:=1<>1) if 6**(k:=integer_log(m:=3**(n-1),6)[0])<<1>1)+(1<Chai Wah Wu, Feb 05 2025