A033894 - OEIS

%I #12 Feb 03 2025 05:36:18

%S 5,10,11,22,44,88,176,343,677,1354,2699,5398,8987,16876,33554,67009,

%T 67688,134476,268943,503632,526988,783877,1161665,2277331,3500708,

%U 3504286,3738854,7084642,7329320,7552699,10109498,10224397,11447876

%N Sort then Add, a(1)=5.

%p A033894 := proc(n)

%p     option remember ;

%p     if n =1 then

%p         5;

%p     else

%p         A070196(procname(n-1)) ;

%p     end if;

%p end proc:

%p seq(A033894(n),n=1..100) ; # _R. J. Mathar_, Feb 03 2025

%t NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,5,40] (* _Harvey P. Dale_, Dec 31 2015 *)

%Y Cf. A033860.

%K nonn,base,easy,changed

%O 1,1

%A _N. J. A. Sloane_, _David W. Wilson_