A037379 Positive numbers k such that every base-2 digit of k is a base-10 digit of k.

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

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

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

Crossrefs

Cf. A037372, A037373, A037374, A037375, A037376, A037377, A037378.

Sequence in context: A271743 A060535 A239595 * A055049 A128703 A276914

Adjacent sequences: A037376 A037377 A037378 * A037380 A037381 A037382

Keyword

nonn,base

Author

Clark Kimberling

Status

approved