A037377 Positive numbers k such that every base-2 digit of k is a base-8 digit of k.

1, 8, 15, 64, 65, 66, 67, 68, 69, 70, 71, 72, 80, 88, 96, 104, 112, 120, 127, 129, 136, 193, 200, 257, 264, 321, 328, 385, 392, 449, 456, 512, 513, 514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 529, 530

Offset

1,2

Links

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

Prog

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

Sequence in context: A243295 A118526 A167340 * A166704 A161342 A048732

Adjacent sequences: A037374 A037375 A037376 * A037378 A037379 A037380

Keyword

nonn,base

Author

Clark Kimberling

Status

approved