login
A037390
Numbers k such that every base-4 digit of k is a base-8 digit of k.
6
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
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
KEYWORD
nonn,base
STATUS
approved