|
%I #9 Apr 07 2018 07:24:01
%S 17,34,68,136,272,499,998,1897,3686,7354,10811,11929,23228,45466,
%T 90032,90271,91550,93109,94508,99097,107096,108775,124553,248008,
%U 250496,275065,300632,302968,326657,562324,785780,843568,1189256,2314945,3549404
%N Sort then Add!.
%t NestList[FromDigits[Sort[IntegerDigits[#]]]+#&, 17,40] (* _Harvey P. Dale_, Apr 07 2018 *)
%Y Cf. A033860.
%K nonn,base,easy
%O 1,1
%A _N. J. A. Sloane_, _David W. Wilson_
|
