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

Comments

This is to A007089 as A067894 is to A007088.

Links

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

Example

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

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

Crossrefs

Cf. A007088, A007089, A067894.

Sequence in context: A230026 A260798 A102010 * A261599 A144826 A030552

Adjacent sequences: A121715 A121716 A121717 * A121719 A121720 A121721

Keyword

base,easy,nonn

Author

Jonathan Vos Post, Sep 08 2006

Status

approved