OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 0123456789 after any digits not appearing in n are removed.
EXAMPLE
a(93077) = 0379 = 379. Seven is only used once and the digits are sorted. The initial zero is not shown.
MAPLE
a:= n-> parse(cat(sort([{convert(n, base, 10)[]}[]])[])):
seq(a(n), n=1..70); # Alois P. Heinz, Sep 21 2022
PROG
(Haskell)
import Data.List (nub, sort)
a180410 = read . sort . nub . show :: Integer -> Integer
-- Reinhard Zumkeller, Jul 09 2013
CROSSREFS
KEYWORD
AUTHOR
Dominick Cancilla, Sep 02 2010
STATUS
approved