0,3

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

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Index entries for Colombian or self numbers and related sequences

(PARI) { a(n) = local( d = vecsort( eval(Vec(Str(n))), , 8) ); sum(i=1, #d, d[i]) }

(Haskell)

import Data.List (nub)

a217928 = sum . nub . map (read . return) . show :: Integer -> Integer

-- Reinhard Zumkeller, Jul 09 2013

Cf. A007953

Sequence in context: A051801 A071205 A066750 * A222493 A032762 A180410

Adjacent sequences: A217925 A217926 A217927 * A217929 A217930 A217931

base,easy,nonn

Max Alekseyev, Oct 15 2012

approved