This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A033894 #12 Feb 03 2025 05:36:18 %S A033894 5,10,11,22,44,88,176,343,677,1354,2699,5398,8987,16876,33554,67009, %T A033894 67688,134476,268943,503632,526988,783877,1161665,2277331,3500708, %U A033894 3504286,3738854,7084642,7329320,7552699,10109498,10224397,11447876 %N A033894 Sort then Add, a(1)=5. %p A033894 A033894 := proc(n) %p A033894 option remember ; %p A033894 if n =1 then %p A033894 5; %p A033894 else %p A033894 A070196(procname(n-1)) ; %p A033894 end if; %p A033894 end proc: %p A033894 seq(A033894(n),n=1..100) ; # _R. J. Mathar_, Feb 03 2025 %t A033894 NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,5,40] (* _Harvey P. Dale_, Dec 31 2015 *) %Y A033894 Cf. A033860. %K A033894 nonn,base,easy %O A033894 1,1 %A A033894 _N. J. A. Sloane_, _David W. Wilson_