|
%I #9 Jul 16 2022 07:10:33
%S 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,
%T 40,42,44,45,47,49,51,53,55,56,58,60,62,64,66,67,69,71,73,75,77,78,80,
%U 82,84,86,88,89,91,93,95,97,99,100,102,105,108,111,112,114,116,118,120,123
%N a(n) = a(n-1) + number of distinct digits of a(n-1) in decimal representation, a(0)=0.
%F a(n) = a(n-1) + A043537(a(n-1)).
%t nxt[n_]:=n+Length[Select[DigitCount[n],#!=0&]]
%t Prepend[NestList[nxt,1,80],0] (* _Harvey P. Dale_, Dec 26 2010 *)
%Y Cf. A043537.
%K nonn,base
%O 0,3
%A _Reinhard Zumkeller_, May 25 2006
|
