|
%I #39 Oct 12 2013 21:53:16
%S 45,44,43,42,41,40,39,38,37,36,44,44,42,41,40,39,38,37,36,35,43,42,43,
%T 40,39,38,37,36,35,34,42,41,40,42,38,37,36,35,34,33,41,40,39,38,41,36,
%U 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
%N Sum of decimal digits not appearing in n.
%H Reinhard Zumkeller, <a href="/A216407/b216407.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%F a(n) = 45 - A217928(n).
%F 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
%t Total[Complement[Range[0,9],IntegerDigits[#]]]&/@Range[0,100] (* _Harvey P. Dale_, Aug 13 2013 *)
%o (PARI) { a(n) = local( d = vecsort( eval(Vec(Str(n))),,8) ); 45 - sum(i=1,#d,d[i]) }
%o (Haskell)
%o a216407 = (45 -) . a217928 -- _Reinhard Zumkeller_, Jul 09 2013
%K base,easy,nonn
%O 0,1
%A Xenia Sheinerman, Oct 15 2012
|
