A381966 Row sums of A381965.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 20, 23, 26, 29, 32, 35, 40, 45, 50, 55, 30, 34, 38, 42, 48, 55, 62, 60, 70, 84, 40, 45, 50, 57, 66, 65, 78, 97, 86, 111, 50, 56, 62, 73, 74, 90, 86, 112, 98, 124, 60, 67, 76, 89, 96, 95, 128, 117

Offset: 0

Author

Paolo Xausa, Mar 12 2025

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A031346, A381965.

Programs

Mathematica

A381966[n_] := Total[NestWhileList[Times @@ IntegerDigits[#] &, n, # >= 10 &]];
Array[A381966, 100, 0]

Formula

a(n) = Sum_{k = 0..A031346(n)} A381965(n,k).