The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 Aug 04 2021 02:21:41
%S 1,2,3,15,38,55,63,73,85,91,117,119,121,127,170,231,236,243,255,256,
%T 257,264,276,288,289,290,291,292,293,294,306,324,325,326,327,336,341,
%U 343,348,349,350,351,362,375,381,383,408,409,410
%N Numbers k such that every base-4 digit of k is a base-6 digit of k.
%H Reinhard Zumkeller, <a href="/A037388/b037388.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[500],SubsetQ[IntegerDigits[#,6],IntegerDigits[#,4]]&] (* _Harvey P. Dale_, Mar 19 2018 *)
%o (Haskell)
%o import Data.List ((\\), nub)
%o a037388 n = a037388_list !! (n-1)
%o a037388_list = filter f [1..] where
%o f x = null $ nub (ds 4 x) \\ nub (ds 6 x)
%o ds b x = if x > 0 then d : ds b x' else [] where (x', d) = divMod x b
%o -- _Reinhard Zumkeller_, May 30 2013
%Y Cf. A007090, A007092.
%Y Cf. A037387, A037389, A037390, A037391, A037392.
%K nonn,base
%O 1,2
%A _Clark Kimberling_