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

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A031286, A381963.

Sequence in context: A033061 A088380 A122620 * A218470 A008727 A357745

Adjacent sequences: A381961 A381962 A381963 * A381965 A381966 A381967

Keyword

nonn,base,easy

Author

Paolo Xausa, Mar 11 2025

Status

approved