[go: up one dir, main page]

login
A216407
Sum of decimal digits not appearing in n.
3
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,1
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
MATHEMATICA
Total[Complement[Range[0, 9], IntegerDigits[#]]]&/@Range[0, 100] (* Harvey P. Dale, Aug 13 2013 *)
PROG
(PARI) { a(n) = local( d = vecsort( eval(Vec(Str(n))), , 8) ); 45 - sum(i=1, #d, d[i]) }
(Haskell)
a216407 = (45 -) . a217928 -- Reinhard Zumkeller, Jul 09 2013
CROSSREFS
Sequence in context: A165248 A085518 A087083 * A137439 A199356 A199523
KEYWORD
base,easy,nonn
AUTHOR
Xenia Sheinerman, Oct 15 2012
STATUS
approved