login
A033899
Sort then Add, a(1)=17.
1
17, 34, 68, 136, 272, 499, 998, 1897, 3686, 7354, 10811, 11929, 23228, 45466, 90032, 90271, 91550, 93109, 94508, 99097, 107096, 108775, 124553, 248008, 250496, 275065, 300632, 302968, 326657, 562324, 785780, 843568, 1189256, 2314945, 3549404
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
Cf. A033860.
Sequence in context: A268287 A249988 A098365 * A110287 A102813 A360573
KEYWORD
nonn,base,easy
STATUS
approved