OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local L, m, p;
L:= convert(n, base, 10);
m:= nops(L);
L:= sort(subs(0=NULL, L));
p:= nops(L);
10^m*L[1]+add(L[j]*10^(p-j), j=2..p)
end proc:
map(f, [$1..100]); # Robert Israel, May 06 2018
CROSSREFS
KEYWORD
AUTHOR
N. J. A. Sloane, Sep 15 2000
EXTENSIONS
Definition corrected by Robert Israel, May 06 2018
STATUS
approved