A192825 Numbers m containing in decimal representation at least one zero and having no common digit in m and 2*m.

207, 208, 209, 307, 308, 309, 406, 409, 606, 607, 609, 706, 707, 708, 709, 807, 808, 906, 907, 909, 2057, 2058, 2059, 2067, 2069, 2072, 2073, 2077, 2078, 2079, 2082, 2083, 2088, 2092, 2093, 2207, 2208, 2209, 2307, 2308, 2309, 2707, 2708, 2709, 2807, 2808

Offset: 1

Author

Reinhard Zumkeller, Aug 09 2011

Keywords

• nonn
• base

Comments

Intersection of A011540 and A038365; A168046(a(n)) = 0.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Programs

Haskell

import Data.List (intersect)
a192825 n = a192825_list !! (n-1)
a192825_list = filter (\x ->
   '0' `elem` show x && null (show (2*x) `intersect` show x)) [1..]