OFFSET
0,3
COMMENTS
a(n) <= 45 = 1+2+3+4+5+6+7+8+9; A227378(n) = smallest number m such that a(m) = n, 0 <= n <= 45. - Reinhard Zumkeller, Jul 09 2013
LINKS
FORMULA
MAPLE
a:= n-> add(i, i={convert(n, base, 10)[]}):
seq(a(n), n=0..100); # Alois P. Heinz, Sep 21 2022
PROG
(PARI) { a(n) = local( d = vecsort( eval(Vec(Str(n))), , 8) ); sum(i=1, #d, d[i]) }
(PARI) a(n) = vecsum(Set(digits(n))); \\ Michel Marcus, Sep 13 2022
(Haskell)
import Data.List (nub)
a217928 = sum . nub . map (read . return) . show :: Integer -> Integer
-- Reinhard Zumkeller, Jul 09 2013
(Python)
def a(n): return sum(map(int, set(str(n))))
print([a(n) for n in range(101)]) # Michael S. Branicky, Sep 13 2022
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Max Alekseyev, Oct 15 2012
STATUS
approved