login
Least integer with the same nonzero decimal digits as n and one more 0 digit.
2

%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