A037407 Numbers k such that every base-9 digit of k is a base-10 digit of k.

1, 2, 3, 4, 5, 6, 7, 8, 10, 20, 30, 40, 50, 60, 70, 80, 91, 136, 158, 172, 182, 227, 263, 273, 318, 354, 364, 405, 415, 425, 435, 445, 450, 451, 452, 453, 454, 455, 456, 457, 458, 465, 475, 485, 536, 546, 627, 637, 683, 718, 728, 801

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Programs

Haskell

import Data.List ((\\), nub)
a037407 n = a037407_list !! (n-1)
a037407_list = filter f [1..] where
   f x = null $ nub (ds 9 x) \\ nub (ds 10 x)
   ds b x = if x > 0 then d : ds b x' else []  where (x', d) = divMod x b
-- Reinhard Zumkeller, May 30 2013

Mathematica

Select[Range[1000],SubsetQ[IntegerDigits[#],IntegerDigits[#,9]]&] (* Harvey P. Dale, May 01 2018 *)