A033897 Sort then Add, a(1)=13.

13, 26, 52, 77, 154, 299, 598, 1187, 2365, 4721, 5968, 11657, 23224, 45458, 90016, 90185, 91774, 106553, 120109, 121238, 233476, 466943, 811612, 922880, 945769, 1402568, 1527136, 2650703, 2674270, 2898947, 5377846, 8834624, 11179312

Offset: 1

Author

N. J. A. Sloane, David W. Wilson

Keywords

• nonn
• base
• easy

Crossrefs

Cf. A033860.

Programs

Maple

A033897 := proc(n)
    option remember ;
    if n =1 then
        13;
    else
        A070196(procname(n-1)) ;
    end if;
end proc:
seq(A033897(n),n=1..100) ; # R. J. Mathar, Feb 03 2025

Mathematica

NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,13,40] (* Harvey P. Dale, Sep 09 2012 *)