|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|