OFFSET
1,1
MAPLE
A033899 := proc(n)
option remember ;
if n =1 then
17;
else
A070196(procname(n-1)) ;
end if;
end proc:
seq(A033899(n), n=1..100) ; # R. J. Mathar, Feb 03 2025
MATHEMATICA
NestList[FromDigits[Sort[IntegerDigits[#]]]+#&, 17, 40] (* Harvey P. Dale, Apr 07 2018 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved