OFFSET
0,22
LINKS
Robert Price, Table of n, a(n) for n = 0..1000
EXAMPLE
a(42) = 4 because:
1: 42 - 4*2 = 34
2: 34 - 3*4 = 22
3: 22 - 2*2 = 18
4: 18 - 1*8 = 10
5: 10 - 1*0 = 10
MATHEMATICA
Table[Length@ NestWhileList[# - Times @@ IntegerDigits[#] &, n, UnsameQ[##] &,
2] - 2, {n, 0, 85}]; (* Robert Price, Sep 13 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Price, Sep 13 2020
STATUS
approved