A037392 -id:A037392 - cp's OEIS frontend

A037387 Numbers k such that every base-4 digit of k is a base-5 digit of k.

1, 2, 3, 5, 10, 15, 21, 28, 37, 38, 42, 58, 63, 76, 80, 86, 132, 136, 137, 138, 142, 152, 160, 167, 178, 183, 190, 191, 202, 204, 205, 210, 213, 214, 215, 217, 220, 221, 222, 223, 238, 240, 256, 257, 258, 261, 266, 276, 277, 278

Offset: 1

Clark Kimberling

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

Cf. A007090, A007091.

Cf. A037388, A037389, A037390, A037391, A037392.

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

Select[Range[300],SubsetQ[IntegerDigits[#,5],IntegerDigits[#,4]]&] (* Harvey P. Dale, Mar 27 2019 *)

A037388 Numbers k such that every base-4 digit of k is a base-6 digit of k.

Original entry on oeis.org

1, 2, 3, 15, 38, 55, 63, 73, 85, 91, 117, 119, 121, 127, 170, 231, 236, 243, 255, 256, 257, 264, 276, 288, 289, 290, 291, 292, 293, 294, 306, 324, 325, 326, 327, 336, 341, 343, 348, 349, 350, 351, 362, 375, 381, 383, 408, 409, 410

Offset: 1

Clark Kimberling

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

Cf. A007090, A007092.

Cf. A037387, A037389, A037390, A037391, A037392.

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

Select[Range[500],SubsetQ[IntegerDigits[#,6],IntegerDigits[#,4]]&] (* Harvey P. Dale, Mar 19 2018 *)

A037389 Every base 4 digit of k is a base 7 digit of k.

Original entry on oeis.org

1, 2, 3, 9, 52, 84, 85, 86, 87, 105, 106, 170, 191, 255, 345, 352, 357, 358, 360, 361, 362, 366, 368, 369, 381, 394, 406, 409, 410, 415, 422, 444, 462, 479, 486, 492, 496, 497, 501, 503, 504, 505, 506, 507, 509, 510, 511, 553, 597

Offset: 1

Clark Kimberling

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

Cf. A037387, A037388, A037390, A037391, A037392.

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

Select[Range[600],Complement[IntegerDigits[#,4],IntegerDigits[#,7]]=={}&] (* Harvey P. Dale, Jan 25 2024 *)

A037390 Numbers k such that every base-4 digit of k is a base-8 digit of k.

Original entry on oeis.org

1, 2, 3, 10, 42, 64, 65, 66, 67, 68, 69, 80, 85, 86, 90, 93, 95, 106, 128, 129, 130, 131, 136, 153, 160, 168, 169, 170, 171, 187, 192, 193, 194, 195, 234, 240, 250, 255, 257, 321, 514, 522, 528, 529, 530, 531, 532, 533, 534, 538

Offset: 1

Clark Kimberling

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

Cf. A007090, A007094.

Cf. A037387, A037388, A037389, A037391, A037392.

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

A037391 Numbers k such that every base-4 digit of k is a base-9 digit of k.

Original entry on oeis.org

1, 2, 3, 81, 84, 85, 93, 101, 102, 105, 106, 110, 162, 168, 170, 174, 190, 191, 243, 244, 252, 253, 254, 255, 325, 341, 650, 750, 758, 768, 837, 885, 894, 918, 919, 921, 922, 923, 925, 926, 939, 957, 972, 973, 974, 975, 976, 977

Offset: 1

Clark Kimberling

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

Cf. A037387, A037388, A037389, A037390, A037392.

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

Select[Range[1000],SubsetQ[IntegerDigits[#,9],IntegerDigits[#,4]]&] (* Harvey P. Dale, Jul 12 2024 *)

A037428 Positive numbers having the same set of digits in base 4 and base 10.

Original entry on oeis.org

1, 2, 3, 13, 31, 123, 203, 231, 1031, 1103, 1120, 1203, 1230, 1303, 2103, 2120, 2201, 2300, 2301, 2302, 2303, 3012, 3020, 3021, 3022, 3023, 3100, 3101, 3102, 3103, 3200, 3201, 3202, 3203, 3320, 10023, 10032, 10123, 10132, 10232, 10323, 10332

Offset: 1

Clark Kimberling

			1103 is in the sequence because 1103 in base 4 is 101033.

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

Subsequence of A007090 and A037392.

Select[Range[33333],Union[IntegerDigits[#]]==Union[IntegerDigits[#,4]]&] (* Harvey P. Dale, Jan 01 2023 *)

is(n)=Set(digits(n, 4))==Set(digits(n)) \\ Charles R Greathouse IV, Feb 11 2017

Corrected by Don Reble, Apr 28 2006

Edited by John Cerkan, Feb 09 2017

cp's OEIS Frontend

A037387 Numbers k such that every base-4 digit of k is a base-5 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

A037388 Numbers k such that every base-4 digit of k is a base-6 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

A037389 Every base 4 digit of k is a base 7 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

A037390 Numbers k such that every base-4 digit of k is a base-8 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

A037391 Numbers k such that every base-4 digit of k is a base-9 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

A037428 Positive numbers having the same set of digits in base 4 and base 10.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions