A033897 Sort then Add!.

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.

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

Author

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

Status

approved