A189819 Partial sums of A189816.

0, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 5, 6, 6, 7, 8, 8, 9, 10, 10, 11, 12, 12, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 20, 20, 20, 20, 20, 20, 20, 20, 21, 22, 22, 22, 22, 22, 22, 22, 22, 23, 24, 24, 24, 24, 24, 24, 24, 24, 25, 26, 26, 26, 26, 26, 26, 26, 26, 27, 28, 28, 28, 28, 28, 28, 28, 28, 29, 30, 30, 31, 32, 32, 33, 34, 34, 35, 36, 36, 37

Offset

1,3

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Formula

a(n) = [(n+1)/3] - a([(n+1)/3]) + [n/3] - a([n/3]), starting with a(0)=0, where []=floor.

Mathematica

a[0] = 0; h = 150; Table[a[n] = Floor[(n + 1)/3] - a[Floor[(n + 1)/3]] + Floor[n/3] - a[Floor[n/3]], {n, 1, h}]

Crossrefs

Cf. A189816, A189817, A189818.

Sequence in context: A226749 A277090 A103376 * A145992 A045818 A064128

Adjacent sequences: A189816 A189817 A189818 * A189820 A189821 A189822

Keyword

nonn

Author

Clark Kimberling, Apr 28 2011

Status

approved