A033901 Sort then Add, a(1)=21.

21, 33, 66, 132, 255, 510, 525, 780, 858, 1446, 2892, 5181, 6339, 9708, 10497, 11976, 23655, 47211, 58458, 104046, 105492, 117951, 229530, 251889, 377778, 755556, 1311123, 2422356, 4645812, 5890380, 5926269, 8182968, 9451857, 10907646

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n)=A033898(n+1), n>1. [From R. J. Mathar, Oct 22 2008]

Maple

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

Mathematica

NestList[FromDigits[Sort[IntegerDigits[#]]]+#&, 21, 40] (* Harvey P. Dale, Feb 23 2023 *)

Crossrefs

Cf. A033860.

Sequence in context: A128283 A354837 A280878 * A033656 A270074 A350099

Adjacent sequences: A033898 A033899 A033900 * A033902 A033903 A033904

Keyword

nonn,base,easy,changed

Author

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

Status

approved