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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A037402 Numbers n such that every base 7 digit of n is a base 8 digit of n. 3
1, 2, 3, 4, 5, 6, 8, 16, 24, 32, 40, 48, 57, 85, 94, 106, 114, 133, 142, 163, 171, 196, 204, 212, 220, 224, 225, 226, 227, 228, 229, 230, 236, 244, 277, 285, 305, 334, 342, 385, 392, 401, 540, 546, 547, 550, 597, 620, 629, 646, 688 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

MATHEMATICA

b7b8Q[n_]:=Module[{idn7=Union[IntegerDigits[n, 7]]}, Intersection[ idn7, Union[ IntegerDigits[n, 8]]]==idn7]; Select[Range[700], b7b8Q] (* Harvey P. Dale, Dec 15 2013 *)

PROG

(Haskell)

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

a037402 n = a037402_list !! (n-1)

a037402_list = filter f [1..] where

   f x = null $ nub (ds 7 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. A037403, A037404.

Sequence in context: A043710 A029954 A048318 * A048332 A119336 A133706

Adjacent sequences:  A037399 A037400 A037401 * A037403 A037404 A037405

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 | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified October 20 18:46 EDT 2014. Contains 248371 sequences.