|
%I #9 Jul 19 2017 15:06:55
%S 31,44,88,176,343,677,1354,2699,5398,8987,16876,33554,67009,67688,
%T 134476,268943,503632,526988,783877,1161665,2277331,3500708,3504286,
%U 3738854,7084642,7329320,7552699,10109498,10224397,11447876,22894654,45340343
%N Sort then Add!.
%H Harvey P. Dale, <a href="/A033905/b033905.txt">Table of n, a(n) for n = 1..1000</a>
%t NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,31,40] (* _Harvey P. Dale_, Jul 19 2017 *)
%Y Cf. A033860.
%K nonn,base,easy
%O 1,1
%A _N. J. A. Sloane_, _David W. Wilson_
|
