cp's OEIS Frontend

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

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