A037401 - OEIS

%I #12 Aug 22 2021 09:22:04

%S 1,2,3,4,5,35,123,154,215,331,512,521,1014,1024,1045,1054,1085,1135,

%T 1145,1151,1295,1302,1303,1305,1350,1440,1450,1504,1506,1507,1520,

%U 1530,1540,1555,1559,1562,1579,1583,1592,1639,1653

%N Numbers k such that every base-6 digit of k is a base-10 digit of k.

%H Reinhard Zumkeller, <a href="/A037401/b037401.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o import Data.List ((\\), nub)

%o a037401 n = a037401_list !! (n-1)

%o a037401_list = filter f [1..] where

%o    f x = null $ nub (ds 6 x) \\ nub (ds 10 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

%o (Haskell)

%o import Data.List ((\\), nub)

%o a037401 n = a037401_list !! (n-1)

%o a037401_list = filter f [1..] where

%o    f x = null $ nub (ds 6 x) \\ nub (ds 10 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. A037398, A037399, A037400.

%Y Cf. A037398, A037399, A037400.

%K nonn,base

%O 1,2

%A _Clark Kimberling_