A037372 Positive numbers k such that every base-2 digit of k is a base-3 digit of k.

1, 3, 7, 9, 10, 11, 12, 15, 19, 21, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 42, 45, 46, 47, 48, 51, 55, 57, 58, 59, 61, 63, 64, 65, 66, 69, 73, 75, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101

Offset

1,2

Links

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

Prog

(Haskell)
import Data.List ((\\), nub)
a037372 n = a037372_list !! (n-1)
a037372_list = filter f [1..] where
   f x = null $ nub (ds 2 x) \\ nub (ds 3 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. A037373, A037374, A037375, A037376, A037377, A037378, A037379.

Sequence in context: A169968 A082768 A326911 * A194407 A241662 A097475

Adjacent sequences: A037369 A037370 A037371 * A037373 A037374 A037375

Keyword

nonn,base

Author

Clark Kimberling

Status

approved