%I #11 Mar 24 2014 02:29:16
%S 123456789,23456789,13456789,12456789,12356789,12346789,12345789,
%T 12345689,12345679,12345678,23456789,23456789,3456789,2456789,2356789,
%U 2346789,2345789,2345689,2345679,2345678,13456789,3456789,13456789,1456789,1356789,1346789,1345789
%N Nonzero digits not used in n.
%F a(n) = 123456789 after removing any digits that appear in n. If n uses all digits, then a(n) = 0.
%e a(13) = 123456789 without 1 and 3 = 2456789.
%e a(123456789) = 0 (by definition).
%t newn[n_]:=FromDigits[Complement[Range[9],IntegerDigits[n]]]; Table[newn[i],{i,50}] (* _Harvey P. Dale_, Nov 21 2010 *)
%K easy,nonn,base
%O 0,1
%A _Dominick Cancilla_, Sep 02 2010
%E More terms from _Harvey P. Dale_, Nov 21 2010
|