|
%I #10 May 07 2018 03:08:32
%S 10,20,30,40,50,60,70,80,90,100,101,102,103,104,105,106,107,108,109,
%T 200,102,202,203,204,205,206,207,208,209,300,103,203,303,304,305,306,
%U 307,308,309,400,104,204,304,404,405,406,407,408,409,500,105
%N Least integer with the same nonzero decimal digits as n and one more 0 digit.
%H Robert Israel, <a href="/A057169/b057169.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(n) local L,m,p;
%p L:= convert(n,base,10);
%p m:= nops(L);
%p L:= sort(subs(0=NULL,L));
%p p:= nops(L);
%p 10^m*L[1]+add(L[j]*10^(p-j),j=2..p)
%p end proc:
%p map(f, [$1..100]); # _Robert Israel_, May 06 2018
%Y Decimal analog of A057168. Cf. A004185.
%K nonn,easy,base,look
%O 1,1
%A _N. J. A. Sloane_, Sep 15 2000
%E Definition corrected by _Robert Israel_, May 06 2018
|
