A391637 Partial sums of A094345.

0, 1, 4, 8, 14, 23, 34, 48, 66, 85, 106, 130, 156, 185, 218, 254, 294, 339, 386, 436, 490, 547, 608, 674, 744, 819, 900, 982, 1066, 1153, 1242, 1334, 1430, 1529, 1632, 1740, 1850, 1963, 2080, 2200, 2324, 2453, 2586, 2724, 2868, 3015, 3166, 3322, 3482, 3647, 3818, 3994

Offset

0,3

Links

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

Formula

a(n) = a(n-1) + Sum_{i=1..n} A053735(i), with a(0) = 0.

a(n) = a(n-1) + A094345(n), with a(0) = 0.

Mathematica

a[n_]:=Sum[Sum[Total[IntegerDigits[i, 3]], {i, j}], {j, n}]; Array[a, 55, 0] (* Stefano Spezia, Jan 17 2026 *)

Crossrefs

Cf. A053735, A094345.

Sequence in context: A049628 A063757 A193711 * A079328 A073612 A227621

Adjacent sequences: A391634 A391635 A391636 * A391638 A391639 A391640

Keyword

nonn,base

Author

George Lamont, Jan 16 2026

Status

approved