proposed
approved
editing
NumbersPositive numbers k such that every base-2 digit of k is a base-8 digit of k.
n-th numberNumbers k such that every base -2 digit of k is a base -8 digit of k.
Cf. A037372, A037373, A037374, A037375, A037376, A037378, A037379.
(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
Reinhard Zumkeller, <a href="/A037377/b037377.txt">Table of n, a(n) for n = 1..10000</a>
