A381964 Row sums of A381963.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 30, 22, 24, 26, 28, 30, 32, 34, 36, 39, 42, 33, 35, 37, 39, 41, 43, 45, 48, 51, 54, 44, 46, 48, 50, 52, 54, 57, 60, 63, 66, 55, 57, 59, 61, 63, 66, 69, 72, 75, 78, 66, 68, 70, 72, 75, 78, 81, 84, 87, 90

Offset: 0

Author

Paolo Xausa, Mar 11 2025

Keywords

• nonn
• base
• easy

Links

• Paolo Xausa, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A031286, A381963.

Programs

Mathematica

A381964[n_] := Total[NestWhileList[DigitSum, n, # >= 10 &]];
Array[A381964, 100, 0]

Formula

a(n) = Sum_{k = 0..A031286(n)} A381963(n,k).