login
A121718
Write 0, 1, ..., n in base 3 and add as if they were decimal numbers.
1
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.
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
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Sep 08 2006
STATUS
approved