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

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A031346, A381965.

Sequence in context: A331400 A375756 A067082 * A102685 A032960 A117804

Adjacent sequences: A381963 A381964 A381965 * A381967 A381968 A381969

Keyword

nonn,base,easy

Author

Paolo Xausa, Mar 12 2025

Status

approved