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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A037406 Every base 8 digit of n is a base 10 digit of n. 3
1, 2, 3, 4, 5, 6, 7, 45, 105, 127, 235, 274, 365, 436, 487, 614, 713, 731, 1017, 1024, 1025, 1026, 1032, 1042, 1124, 1162, 1206, 1233, 1234, 1235, 1243, 1273, 1426, 1462, 1603, 1630, 1653, 1723, 1737, 1739, 1743, 1753, 2048 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

MATHEMATICA

b8dQ[n_]:=Module[{idn=Union[IntegerDigits[n]], idn8=Union[IntegerDigits[n, 8]]}, And@@Table[MemberQ[idn, idn8[[i]]], {i, Length[idn8]}]]

Select[Range[2100], b8dQ]  (* Harvey P. Dale, Feb 27 2011 *)

PROG

(Haskell)

import Data.List ((\\), nub)

a037406 n = a037406_list !! (n-1)

a037406_list = filter f [1..] where

   f x = null $ nub (ds 8 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. A037405.

Sequence in context: A004847 A024646 A084831 * A237344 A024647 A250263

Adjacent sequences:  A037403 A037404 A037405 * A037407 A037408 A037409

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 June 26 20:30 EDT 2019. Contains 324380 sequences. (Running on oeis4.)