A037388 -id:A037388 - cp's OEIS frontend

A037392 Every base 4 digit of n is a base 10 digit of n.

1, 2, 3, 13, 21, 31, 42, 63, 102, 123, 203, 213, 231, 234, 235, 238, 239, 341, 351, 381, 421, 520, 682, 1013, 1023, 1024, 1025, 1026, 1028, 1029, 1031, 1032, 1036, 1037, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1053, 1062

Offset: 1

Clark Kimberling

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

Cf. A037387, A037388, A037389, A037390, A037391.

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

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

Original entry on oeis.org

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

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

cp's OEIS Frontend

A037392 Every base 4 digit of n is a base 10 digit of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

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

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