Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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