A354760 a(0) = 0; for n >= 1, a(n) = a(n - A054055(n)) + 1.

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13

Offset

0,11

Comments

Number of steps needed to reach zero when starting from k = n and repeatedly applying the map that replaces k by k - A054055(k). a(n) ~ n/ln(n).

Links

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

Example

n = 12, a(12) = 1 + a(12 - A054055(12)) = 1 + a(10) = 1 + 1 + a(10 - A054055(10)) = 2 + a(9) = 2 + 1 + a(9 - A054055(9)) = 2 + 1 + 0 = 3.

Mathematica

a[0] = 0; a[n_] := a[n] = a[n - Max[IntegerDigits[n]]] + 1; Array[a, 100, 0] (* Amiram Eldar, Jun 06 2022 *)

Crossrefs

Cf. A054055.

Sequence in context: A121242 A185436 A025794 * A025793 A102680 A025791

Adjacent sequences: A354757 A354758 A354759 * A354761 A354762 A354763

Keyword

base,easy,nonn

Author

Ctibor O. Zizka, Jun 06 2022

Status

approved