A216407 Sum of decimal digits not appearing in n.

45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 44, 44, 42, 41, 40, 39, 38, 37, 36, 35, 43, 42, 43, 40, 39, 38, 37, 36, 35, 34, 42, 41, 40, 42, 38, 37, 36, 35, 34, 33, 41, 40, 39, 38, 41, 36, 35, 34, 33, 32, 40, 39, 38, 37, 36, 40, 34, 33, 32, 31, 39, 38, 37, 36, 35, 34, 39, 32, 31, 30, 38, 37, 36, 35, 34, 33, 32, 38, 30, 29, 37, 36, 35, 34, 33, 32, 31, 30, 37, 28, 36, 35, 34, 33, 32, 31, 30, 29, 28, 36, 44

Offset: 0

Author

Xenia Sheinerman, Oct 15 2012

Keywords

• base
• easy
• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
• Index entries for Colombian or self numbers and related sequences

Programs

Haskell

a216407 = (45 -) . a217928  -- Reinhard Zumkeller, Jul 09 2013

Mathematica

Total[Complement[Range[0,9],IntegerDigits[#]]]&/@Range[0,100] (* Harvey P. Dale, Aug 13 2013 *)

PARI

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

Formula

a(n) = 45 - A217928(n).

a(n) = 0 for almost all n. Average order is n^-0.045 where the exponent is log(0.9)/log(10). - Charles R Greathouse IV, Oct 15 2012