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,2

Links

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

Mathematica

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

Prog

(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

Crossrefs

Sequence in context: A029955 A297268 A048320 * A048334 A087027 A358142

Adjacent sequences: A037404 A037405 A037406 * A037408 A037409 A037410

Keyword

nonn,base

Author

Clark Kimberling

Status

approved