OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
A033896 := proc(n)
option remember ;
if n =1 then
9;
else
A070196(procname(n-1)) ;
end if;
end proc:
seq(A033896(n), n=1..100) ; # R. J. Mathar, Feb 03 2025
MATHEMATICA
NestList[FromDigits[Sort[IntegerDigits[#]]]+#&, 9, 40] (* Harvey P. Dale, Aug 19 2014 *)
PROG
(Python)
from itertools import accumulate
def sta(anm1, _): return anm1 + int("".join(sorted(str(anm1))))
print(list(accumulate([9]*36, sta))) # Michael S. Branicky, Sep 18 2021
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved