A037399 -id:A037399 - cp's OEIS frontend

A037401 Numbers k such that every base-6 digit of k is a base-10 digit of k.

1, 2, 3, 4, 5, 35, 123, 154, 215, 331, 512, 521, 1014, 1024, 1045, 1054, 1085, 1135, 1145, 1151, 1295, 1302, 1303, 1305, 1350, 1440, 1450, 1504, 1506, 1507, 1520, 1530, 1540, 1555, 1559, 1562, 1579, 1583, 1592, 1639, 1653

Offset: 1

Clark Kimberling

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

Cf. A037398, A037399, A037400.

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

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

A037398 Numbers k such that every base-6 digit of k is a base-7 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 14, 21, 28, 35, 43, 68, 79, 86, 122, 123, 129, 165, 172, 208, 215, 246, 252, 260, 361, 373, 397, 425, 427, 431, 444, 445, 446, 469, 475, 476, 479, 481, 482, 504, 513, 520, 527, 556, 562, 583, 625, 696, 738, 756

Offset: 1

Clark Kimberling

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

Cf. A007092, A007093.

Cf. A037399, A037400, A037401.

import Data.List ((\\), nub)
a037398 n = a037398_list !! (n-1)
a037398_list = filter f [1..] where
   f x = null $ nub (ds 6 x) \\ nub (ds 7 x)
   ds b x = if x > 0 then d : ds b x' else []  where (x', d) = divMod x b
-- Reinhard Zumkeller, May 30 2013

A037400 Numbers k such that every base-6 digit of k is a base-9 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 21, 104, 108, 115, 129, 194, 212, 215, 252, 259, 271, 280, 352, 370, 388, 417, 504, 651, 756, 757, 758, 759, 760, 761, 762, 763, 777, 913, 922, 928, 932, 949, 976, 994, 1008, 1015, 1030, 1076, 1137, 1147, 1151, 1152

Offset: 1

Clark Kimberling

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

Cf. A007092, A007095.

Cf. A037398, A037399, A037401.

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

A037435 Positive numbers having the same set of digits in base 6 and base 8.

Original entry on oeis.org

1, 2, 3, 4, 5, 708, 717, 859, 1093, 1128, 1129, 1130, 1131, 1132, 1133, 1157, 1165, 1602, 1627, 1643, 1676, 2209, 2305, 2561, 2897, 4107, 4123, 4131, 4139, 4179, 4834, 4907, 4963, 5408, 5892, 5901, 5914, 5987, 6217, 6237, 6253, 6277, 6312

Offset: 1

Clark Kimberling

			1128 is in the sequence because 1128 in base 6 is 5120 and in base 8 it is 2150.

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

Subsequence of A037399.

More terms from Don Reble, Apr 28 2006

cp's OEIS Frontend

A037401 Numbers k such that every base-6 digit of k is a base-10 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Haskell

A037398 Numbers k such that every base-6 digit of k is a base-7 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

A037400 Numbers k such that every base-6 digit of k is a base-9 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

A037435 Positive numbers having the same set of digits in base 6 and base 8.

Views

Author

Keywords

Examples

Links

Crossrefs

Extensions