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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A033860.
Programs
-
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 *)
Formula
a(n)=A033898(n+1), n>1. [From R. J. Mathar, Oct 22 2008]