A037390 Numbers k such that every base-4 digit of k is a base-8 digit of k.

1, 2, 3, 10, 42, 64, 65, 66, 67, 68, 69, 80, 85, 86, 90, 93, 95, 106, 128, 129, 130, 131, 136, 153, 160, 168, 169, 170, 171, 187, 192, 193, 194, 195, 234, 240, 250, 255, 257, 321, 514, 522, 528, 529, 530, 531, 532, 533, 534, 538

Offset

1,2

Links

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

Prog

(Haskell)
import Data.List ((\\), nub)
a037390 n = a037390_list !! (n-1)
a037390_list = filter f [1..] where
   f x = null $ nub (ds 4 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. A007090, A007094.

Cf. A037387, A037388, A037389, A037391, A037392.

Sequence in context: A129716 A032293 A059733 * A024484 A007226 A243642

Adjacent sequences: A037387 A037388 A037389 * A037391 A037392 A037393

Keyword

nonn,base

Author

Clark Kimberling

Status

approved