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,1

Links

Table of n, a(n) for n=1..34.

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 *)

Crossrefs

Cf. A033860.

Sequence in context: A235030 A048844 A008601 * A110288 A318260 A050813

Adjacent sequences: A033897 A033898 A033899 * A033901 A033902 A033903

Keyword

nonn,base,easy

Author

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

Status

approved