A037403 -id:A037403 - cp's OEIS frontend

A037402 Numbers k such that every base-7 digit of k is a base-8 digit of k.

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

Offset: 1

Clark Kimberling

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

Cf. A007093, A007094.

Cf. A037403, A037404.

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

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 *)

A037404 Numbers k such that every base-7 digit of k is a base-10 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 23, 46, 214, 250, 265, 285, 316, 421, 702, 1030, 1032, 1036, 1037, 1039, 1053, 1234, 1243, 1336, 1366, 1368, 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1429, 1431, 1432, 1443, 1450, 1453, 1454, 1457, 1464

Offset: 1

Clark Kimberling

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

Cf. A037402, A037403.

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

A037439 Positive numbers having the same set of digits in base 7 and base 9.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 31, 99, 198, 248, 297, 749, 1163, 1471, 1498, 1577, 1831, 2247, 3413, 3988, 4473, 4491, 4500, 4509, 4788, 4789, 4790, 4791, 4792, 4793, 4794, 6769, 7311, 7626, 7698, 7726, 8290, 8299, 8535, 9005, 9038, 9122, 9172, 9185, 9192, 9199, 9248, 9801

Offset: 1

Clark Kimberling

			198 is in the sequence because 198 in base 7 is 402 and in base 9 it is 240.

John Cerkan, Table of n, a(n) for n = 1..10000

Subsequence of A037403.

Cf. A007093, A007095.

Select[Range[10^4], Union@ IntegerDigits[#, 7] == Union@ IntegerDigits[#, 9] &] (* Michael De Vlieger, Feb 18 2017 *)

isok(n) = Set(digits(n, 7)) == Set(digits(n, 9)); \\ Michel Marcus, Feb 18 2017

More terms from Don Reble, Apr 28 2006

Edited by John Cerkan, Feb 17 2017

cp's OEIS Frontend

A037402 Numbers k such that every base-7 digit of k is a base-8 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

A037404 Numbers k such that every base-7 digit of k is a base-10 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

A037439 Positive numbers having the same set of digits in base 7 and base 9.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions