A037405 Numbers k such that every base-8 digit of k is a base-9 digit of k.

1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 73, 124, 137, 146, 177, 210, 219, 283, 284, 292, 356, 365, 429, 438, 502, 511, 568, 576, 586, 763, 768, 769, 772, 897, 906, 942, 945, 946, 950, 970, 1100, 1152, 1163, 1172, 1199, 1474

Offset

1,2

Links

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

Mathematica

bQ[n_]:=Module[{idn8=Union[IntegerDigits[n, 8]], idn9=Union[ IntegerDigits[ n, 9]]}, And@@ (MemberQ[ idn9, #]&/@idn8)]; Select[Range[1500], bQ] (* Harvey P. Dale, Jul 17 2011 *)

Prog

(Haskell)
import Data.List ((\\), nub)
a037405 n = a037405_list !! (n-1)
a037405_list = filter f [1..] where
   f x = null $ nub (ds 8 x) \\ nub (ds 9 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. A007094, A007095.

Cf. A037406.

Sequence in context: A029803 A297265 A048319 * A048333 A007496 A082274

Adjacent sequences: A037402 A037403 A037404 * A037406 A037407 A037408

Keyword

nonn,base

Author

Clark Kimberling

Status

approved