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

Links

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

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

Crossrefs

Cf. A033860.

Sequence in context: A033010 A019551 A098961 * A005029 A251149 A293787

Adjacent sequences: A033894 A033895 A033896 * A033898 A033899 A033900

Keyword

nonn,base,easy,changed

Author

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

Status

approved