login
A037379
Positive numbers k such that every base-2 digit of k is a base-10 digit of k.
8
1, 10, 15, 31, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 120, 127, 130, 140, 150, 160, 170, 180, 190, 201, 210, 301, 310, 401, 410, 501, 510, 511, 601, 610, 701, 710, 801, 810, 901, 910, 1000, 1001, 1002, 1003, 1004
OFFSET
1,2
LINKS
PROG
(Haskell)
import Data.List ((\\), nub)
a037379 n = a037379_list !! (n-1)
a037379_list = filter f [1..] where
f x = null $ nub (ds 2 x) \\ nub (ds 10 x)
ds b x = if x > 0 then d : ds b x' else [] where (x', d) = divMod x b
-- Reinhard Zumkeller, May 30 2013
KEYWORD
nonn,base
STATUS
approved