cp's OEIS Frontend

A037382 Numbers k such that every base-3 digit of k is a base-6 digit of k.

%I A037382 #18 Jul 22 2022 17:45:38
%S A037382 1,2,8,13,26,36,37,38,39,40,44,48,49,50,52,53,68,72,73,74,78,79,80,
%T A037382 109,121,152,157,182,218,224,228,229,230,231,232,233,236,242,243,244,
%U A037382 246,247,248,252,253,254,255,256,264,270,282,288
%N A037382 Numbers k such that every base-3 digit of k is a base-6 digit of k.
%H A037382 Reinhard Zumkeller, <a href="/A037382/b037382.txt">Table of n, a(n) for n = 1..10000</a>
%t A037382 Select[Range[300],SubsetQ[IntegerDigits[#,6],IntegerDigits[#,3]]&] (* _Harvey P. Dale_, Jun 05 2015 *)
%o A037382 (Haskell)
%o A037382 import Data.List ((\\), nub)
%o A037382 a037382 n = a037382_list !! (n-1)
%o A037382 a037382_list = filter f [1..] where
%o A037382    f x = null $ nub (ds 3 x) \\ nub (ds 6 x)
%o A037382    ds b x = if x > 0 then d : ds b x' else []  where (x', d) = divMod x b
%o A037382 -- _Reinhard Zumkeller_, May 30 2013
%Y A037382 Cf. A007089, A007092.
%Y A037382 Cf. A037380, A037381, A037383, A037384, A037385, A037386.
%K A037382 nonn,base
%O A037382 1,2
%A A037382 _Clark Kimberling_