A037388 Numbers k such that every base-4 digit of k is a base-6 digit of k.

1, 2, 3, 15, 38, 55, 63, 73, 85, 91, 117, 119, 121, 127, 170, 231, 236, 243, 255, 256, 257, 264, 276, 288, 289, 290, 291, 292, 293, 294, 306, 324, 325, 326, 327, 336, 341, 343, 348, 349, 350, 351, 362, 375, 381, 383, 408, 409, 410

Offset

1,2

Links

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

Mathematica

Select[Range[500], SubsetQ[IntegerDigits[#, 6], IntegerDigits[#, 4]]&] (* Harvey P. Dale, Mar 19 2018 *)

Prog

(Haskell)
import Data.List ((\\), nub)
a037388 n = a037388_list !! (n-1)
a037388_list = filter f [1..] where
   f x = null $ nub (ds 4 x) \\ nub (ds 6 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

Cf. A007090, A007092.

Cf. A037387, A037389, A037390, A037391, A037392.

Sequence in context: A356094 A296296 A143880 * A298370 A221860 A216339

Adjacent sequences: A037385 A037386 A037387 * A037389 A037390 A037391

Keyword

nonn,base

Author

Clark Kimberling

Status

approved