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

1, 2, 8, 13, 26, 36, 37, 38, 39, 40, 44, 48, 49, 50, 52, 53, 68, 72, 73, 74, 78, 79, 80, 109, 121, 152, 157, 182, 218, 224, 228, 229, 230, 231, 232, 233, 236, 242, 243, 244, 246, 247, 248, 252, 253, 254, 255, 256, 264, 270, 282, 288

Offset

1,2

Links

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

Mathematica

Select[Range[300], SubsetQ[IntegerDigits[#, 6], IntegerDigits[#, 3]]&] (* Harvey P. Dale, Jun 05 2015 *)

Prog

(Haskell)
import Data.List ((\\), nub)
a037382 n = a037382_list !! (n-1)
a037382_list = filter f [1..] where
   f x = null $ nub (ds 3 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. A007089, A007092.

Cf. A037380, A037381, A037383, A037384, A037385, A037386.

Sequence in context: A193666 A196024 A371381 * A297810 A298142 A095825

Adjacent sequences: A037379 A037380 A037381 * A037383 A037384 A037385

Keyword

nonn,base

Author

Clark Kimberling

Status

approved