A119823 a(n) = a(n-1) + number of distinct digits of a(n-1) in decimal representation, a(0)=0.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 22, 23, 25, 27, 29, 31, 33, 34, 36, 38, 40, 42, 44, 45, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 66, 67, 69, 71, 73, 75, 77, 78, 80, 82, 84, 86, 88, 89, 91, 93, 95, 97, 99, 100, 102, 105, 108, 111, 112, 114, 116, 118, 120, 123

Offset: 0

Author

Reinhard Zumkeller, May 25 2006

Keywords

• nonn
• base

Crossrefs

Cf. A043537.

Programs

Mathematica

nxt[n_]:=n+Length[Select[DigitCount[n],#!=0&]]
Prepend[NestList[nxt,1,80],0]  (* Harvey P. Dale, Dec 26 2010 *)

Formula

a(n) = a(n-1) + A043537(a(n-1)).