A033900 Sort then Add, a(1)=19.

19, 38, 76, 143, 277, 554, 1009, 1028, 1156, 2312, 3535, 6890, 7579, 13358, 26716, 39383, 72772, 95549, 141148, 252596, 478165, 623843, 857311, 970889, 1049788, 1197677, 2365456, 4711022, 4823269, 7057958, 7615747, 9072524, 9297103, 9420902

Offset: 1

Author

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

Keywords

• nonn
• base
• easy

Crossrefs

Cf. A033860.

Programs

Maple

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

Mathematica

NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,19,40] (* Harvey P. Dale, Sep 02 2022 *)