cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

A037380 Numbers whose base-3 digits are all present among their base-4 digits.

Original entry on oeis.org

1, 2, 4, 8, 13, 18, 22, 24, 25, 26, 28, 33, 36, 41, 56, 66, 70, 72, 73, 74, 75, 78, 81, 82, 84, 88, 96, 97, 98, 99, 100, 104, 108, 112, 114, 120, 121, 122, 129, 132, 133, 134, 135, 137, 141, 144, 145, 146, 147, 148, 149, 151, 152, 156, 157, 158, 161, 162, 164
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A037381, A037382, A037383, A037384, A037385, A037386.

Programs

  • Haskell
    import Data.List ((\\), nub)
a037380 n = a037380_list !! (n-1)
a037380_list = filter f [1..] where
   f x = null $ nub (ds 3 x) \\ nub (ds 4 x)
   ds b x = if x > 0 then d : ds b x' else []  where (x', d) = divMod x b
-- Reinhard Zumkeller, May 30 2013
  • Maple
    q:= n->  (f-> is({}=f(3) minus f(4)))({k-> convert(n, base, k)[]}):
select(q, [$1..200])[]; #  Alois P. Heinz, Jun 20 2021
  • Mathematica
    Select[Range[200],SubsetQ[IntegerDigits[#,4],IntegerDigits[#,3]]&] (* Harvey P. Dale, Jan 19 2016 *)

A037381 Numbers k such that every base-3 digit of k is a base-5 digit of k.

Original entry on oeis.org

1, 2, 7, 27, 28, 30, 35, 40, 51, 54, 55, 60, 71, 121, 127, 132, 135, 136, 137, 138, 139, 142, 147, 152, 157, 160, 161, 175, 176, 177, 178, 179, 180, 185, 190, 195, 202, 210, 211, 212, 214, 227, 232, 235, 238, 239, 242, 251, 255
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A007089, A007091.
Cf. A037380, A037382, A037383, A037384, A037385, A037386.

Programs

  • Haskell
    import Data.List ((\\), nub)
a037381 n = a037381_list !! (n-1)
a037381_list = filter f [1..] where
   f x = null $ nub (ds 3 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
  • Mathematica
    Select[Range[300],SubsetQ[IntegerDigits[#,5],IntegerDigits[#,3]]&] (* Harvey P. Dale, Dec 31 2017 *)

A037382 Numbers k such that every base-3 digit of k is a base-6 digit of k.

Original entry on oeis.org

1, 2, 8, 13, 26, 36, 37, 38, 39, 40, 44, 48, 49, 50, 52, 53, 68, 72, 73, 74, 78, 79, 80, 109, 121, 152, 157, 182, 218, 224, 228, 229, 230, 231, 232, 233, 236, 242, 243, 244, 246, 247, 248, 252, 253, 254, 255, 256, 264, 270, 282, 288
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A007089, A007092.
Cf. A037380, A037381, A037383, A037384, A037385, A037386.

Programs

  • Haskell
    import Data.List ((\\), nub)
a037382 n = a037382_list !! (n-1)
a037382_list = filter f [1..] where
   f x = null $ nub (ds 3 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
  • Mathematica
    Select[Range[300],SubsetQ[IntegerDigits[#,6],IntegerDigits[#,3]]&] (* Harvey P. Dale, Jun 05 2015 *)

A037384 Numbers k such that every base-3 digit of k is a base-8 digit of k.

Original entry on oeis.org

1, 2, 13, 17, 26, 66, 80, 112, 120, 121, 122, 129, 136, 161, 168, 202, 242, 328, 394, 401, 458, 514, 522, 528, 529, 530, 531, 532, 533, 534, 535, 538, 546, 554, 562, 570, 578, 592, 610, 634, 640, 641, 642, 643, 644, 645, 646, 647
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A007089, A007094.
Cf. A037380, A037381, A037382, A037383, A037385, A037386.

Programs

  • Haskell
    import Data.List ((\\), nub)
a037384 n = a037384_list !! (n-1)
a037384_list = filter f [1..] where
   f x = null $ nub (ds 3 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
  • Mathematica
    b3b8Q[n_]:=Module[{b3=Union[IntegerDigits[n,3]],b8=Union[ IntegerDigits[n,8]]}, And@@Table[ MemberQ[b8,b3[[i]]],{i,Length[b3]}]]; Select[Range[700],b3b8Q] (* Harvey P. Dale, Apr 17 2013 *)
  • PARI
    is(n)=#setminus(Set(digits(n,3)), Set(digits(n,8)))==0 \\ Charles R Greathouse IV, Feb 11 2017

A037385 Numbers k such that every base-3 digit of k is a base-9 digit of k.

Original entry on oeis.org

1, 2, 9, 13, 18, 26, 81, 82, 83, 84, 85, 90, 99, 108, 117, 121, 162, 163, 164, 168, 170, 171, 180, 216, 234, 242, 244, 252, 325, 333, 488, 504, 650, 666, 729, 730, 731, 732, 733, 738, 739, 740, 741, 742, 747, 748, 749, 750, 751
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A007089, A007095.
Cf. A037380, A037381, A037382, A037383, A037384, A037386.

Programs

  • Haskell
    import Data.List ((\\), nub)
a037385 n = a037385_list !! (n-1)
a037385_list = filter f [1..] where
   f x = null $ nub (ds 3 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
  • Mathematica
    Select[Range[1000],SubsetQ[IntegerDigits[#,9],IntegerDigits[#,3]]&] (* Harvey P. Dale, Dec 19 2015 *)

A037386 Every base 3 digit of n is a base 10 digit of n.

Original entry on oeis.org

1, 2, 10, 13, 20, 26, 102, 108, 109, 120, 121, 122, 124, 125, 152, 201, 210, 211, 212, 214, 215, 240, 241, 242, 702, 720, 728, 810, 1000, 1002, 1003, 1008, 1009, 1011, 1012, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028
Offset: 1

Views

Author

Clark Kimberling

Keywords

Links

Crossrefs

Cf. A037380, A037381, A037382, A037383, A037384, A037385.

Programs

  • Haskell
    import Data.List ((\\), nub)
a037386 n = a037386_list !! (n-1)
a037386_list = filter f [1..] where
   f x = null $ nub (ds 3 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
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

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