OFFSET
0,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
FORMULA
a(0) = 1; a(n) = a(n-1) + MaxDigit(a(n-1)) for n > 0 where MaxDigit(x) is the largest digit in decimal notation for an integer x.
a(n+1) = A095815(a(n)). [Reinhard Zumkeller, Aug 23 2011]
EXAMPLE
a(17) = 92; a(18) = 92 + 9 = 101; a(19) = 101 + 1 = 102; a(20) = 102 + 2 = 104
MATHEMATICA
NestList[#+Max[IntegerDigits[#]]&, 1, 60] (* Harvey P. Dale, Oct 25 2011 *)
PROG
(Haskell)
a045844 n = a045844_list !! n
a045844_list = iterate a095815 1
-- Reinhard Zumkeller, Aug 23 2011
(PARI) print1(a=1); for(i=1, 99, print1(", "a+=vecmax(digits(a)))) \\ M. F. Hasler, Jan 14 2014
CROSSREFS
KEYWORD
base,easy,nonn,nice
AUTHOR
STATUS
approved