A037387 Numbers k such that every base-4 digit of k is a base-5 digit of k.

1, 2, 3, 5, 10, 15, 21, 28, 37, 38, 42, 58, 63, 76, 80, 86, 132, 136, 137, 138, 142, 152, 160, 167, 178, 183, 190, 191, 202, 204, 205, 210, 213, 214, 215, 217, 220, 221, 222, 223, 238, 240, 256, 257, 258, 261, 266, 276, 277, 278

Offset

1,2

Links

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

Mathematica

Select[Range[300], SubsetQ[IntegerDigits[#, 5], IntegerDigits[#, 4]]&] (* Harvey P. Dale, Mar 27 2019 *)

Prog

(Haskell)
import Data.List ((\\), nub)
a037387 n = a037387_list !! (n-1)
a037387_list = filter f [1..] where
   f x = null $ nub (ds 4 x) \\ nub (ds 5 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. A007090, A007091.

Cf. A037388, A037389, A037390, A037391, A037392.

Sequence in context: A048315 A093832 A050947 * A256055 A043826 A043829

Adjacent sequences: A037384 A037385 A037386 * A037388 A037389 A037390

Keyword

nonn,base

Author

Clark Kimberling

Status

approved