%I #14 Nov 21 2013 12:46:44

%S 1,2,3,4,5,6,7,8,9,11,13,14,15,16,17,18,19,22,23,27,28,29,31,32,33,34,

%T 35,36,38,39,41,43,44,45,46,48,52,53,54,55,56,57,58,59,64,65,66,67,69,

%U 72,73,76,77,78,79,82,83,85,86,88,92,93,94,111,113,114,115,116,117,118

%N Numbers n with property that digits of n are not present in 2n.

%C 207 is the smallest number containing a zero, cf. A192825. [_Reinhard Zumkeller_, Aug 09 2011]

%H T. D. Noe, <a href="/A038365/b038365.txt">Table of n, a(n) for n=1..2000</a>

%e 36 is in the list since 2*36=72, which shares no digit with 36.

%t Select[Range[140],Intersection[IntegerDigits[2 #], IntegerDigits[#]] =={}&] (* _Harvey P. Dale_, Apr 30 2011 *)

%o (Haskell)

%o import Data.List (intersect)

%o a038365 n = a038365_list !! (n-1)

%o a038365_list = filter (\x -> null (show (2*x) `intersect` show x)) [1..]

%o -- _Reinhard Zumkeller_, Aug 09 2011

%Y Cf. A129845 (complement).

%K nonn,easy,base,nice

%O 1,2

%A _Erich Friedman_