login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A037405 Numbers n such that every base 8 digit of n is a base 9 digit of n. 3
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 (list; graph; refs; listen; history; text; internal format)
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. 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 13:28 EDT 2019. Contains 328090 sequences. (Running on oeis4.)