A037395 Numbers k such that every base-5 digit of k is a base-8 digit of k.

1, 2, 3, 4, 83, 91, 93, 99, 124, 136, 161, 200, 206, 272, 314, 467, 524, 532, 540, 545, 546, 549, 609, 643, 656, 672, 680, 705, 706, 708, 770, 771, 774, 775, 776, 781, 784, 786, 787, 789, 793, 794, 796, 798, 799, 843, 871, 906

Offset

1,2

Links

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

Mathematica

Select[Range[1000], SubsetQ[IntegerDigits[#, 8], IntegerDigits[#, 5]]&] (* Harvey P. Dale, Oct 13 2015 *)

Prog

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

Cf. A007091, A007094.

Cf. A037393, A037394, A037396, A037397.

Sequence in context: A073325 A142959 A173573 * A009496 A263281 A191422

Adjacent sequences: A037392 A037393 A037394 * A037396 A037397 A037398

Keyword

nonn,base

Author

Clark Kimberling

Status

approved