A121718 Write 0, 1, ..., n in base 3 and add as if they were decimal numbers.

0, 1, 3, 13, 24, 36, 56, 77, 99, 199, 300, 402, 512, 623, 735, 855, 976, 1098, 1298, 1499, 1701, 1911, 2122, 2334, 2554, 2775, 2997, 3997, 4998, 6000, 7010, 8021, 9033, 10053, 11074, 12096, 13196, 14297, 15399, 16509, 17620, 18732, 19852, 20973, 22095

Offset: 0

Author

Jonathan Vos Post, Sep 08 2006

Keywords

• base
• easy
• nonn

Comments

This is to A007089 as A067894 is to A007088.

Examples

			a(5) = 36 = 0 + 1 + 2 + 10 + 11 + 12.
		

Crossrefs

Cf. A007088, A007089, A067894.

Programs

Mathematica

f[n_] := Apply[Plus, Table[ FromDigits[ IntegerDigits[i, 3]], {i, 0, n}]]; Table[ f@n, {n, 0, 45}] (* Robert G. Wilson v Sep 10 2006 *)