login
A037388
Numbers k such that every base-4 digit of k is a base-6 digit of k.
6
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
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
KEYWORD
nonn,base
STATUS
approved