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-10 of 12 results. Next

A370859 Numbers m such that c(0) < c(1) > c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

1, 4, 10, 12, 13, 14, 16, 22, 31, 32, 34, 37, 38, 39, 40, 41, 42, 43, 46, 48, 49, 58, 64, 66, 67, 85, 91, 93, 94, 95, 97, 103, 109, 111, 112, 113, 115, 117, 118, 119, 120, 121, 122, 123, 124, 125, 127, 129, 130, 131, 133, 139, 145, 147, 148, 149, 151, 157
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 16 is 121, for which c(0)=0 < c(1)=2 > c(2)=1.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A355275, A370853, A370860, A370861, A370862, A370863, A370870.

Programs

  • Maple
    filter:= proc(n) local L,m;
L:= convert(n,base,3); m:= numboccur(1,L);
numboccur(0,L) < m and numboccur(2,L) < m
end proc:
select(filter, [$1 .. 200]); # Robert Israel, Mar 03 2024
  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] < DigitCount[#, 3, 1] > DigitCount[#, 3, 2] &]

A370863 Numbers m such that c(0) > c(1) < c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

6, 18, 20, 24, 54, 56, 60, 62, 72, 74, 78, 89, 101, 105, 137, 141, 153, 162, 164, 167, 168, 169, 170, 173, 177, 180, 181, 182, 183, 186, 188, 191, 195, 207, 216, 217, 218, 219, 222, 224, 225, 234, 236, 240, 251, 263, 267, 269, 299, 303, 305, 315, 317, 321
Offset: 1

Views

Author

Clark Kimberling, Mar 09 2024

Keywords

Examples

			The ternary representation of 20 is 202, for which c(0)=1 > c(1)=0 < c(2)=2.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370853, A370859, A370864, A370865, A370866, A370870.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] > DigitCount[#, 3, 1] < DigitCount[#, 3, 2] &]

A370870 Numbers m such that c(0) > c(1) > c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

9, 27, 81, 82, 84, 90, 108, 243, 244, 246, 248, 250, 252, 254, 258, 262, 264, 270, 272, 276, 288, 298, 300, 306, 324, 326, 330, 342, 378, 406, 408, 414, 432, 490, 496, 498, 514, 516, 522, 568, 570, 576, 594, 729, 730, 732, 733, 734, 736, 738, 739, 740, 741
Offset: 1

Views

Author

Clark Kimberling, Mar 11 2024

Keywords

Examples

			The ternary representation of 84 is 10010, for which c(0)=3 > c(1)=2 > c(2)=0.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370853, A370859, A370863, A370864, A370871, A370872, A370873.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] > DigitCount[#, 3, 1] > DigitCount[#, 3, 2] &]

A370864 Numbers m such that c(0) >= c(1) < c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

2, 6, 8, 18, 20, 24, 26, 35, 47, 51, 54, 56, 59, 60, 61, 62, 65, 69, 72, 73, 74, 75, 78, 80, 89, 101, 105, 107, 137, 141, 143, 153, 155, 159, 162, 164, 167, 168, 169, 170, 173, 177, 179, 180, 181, 182, 183, 185, 186, 187, 188, 191, 195, 197, 207, 209, 213
Offset: 1

Views

Author

Clark Kimberling, Mar 09 2024

Keywords

Examples

			The ternary representation of 20 is 202, for which c(0)=1 >= c(1)=0 < c(2)=2.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370853, A370859, A370863, A370865, A370866.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] >= DigitCount[#, 3, 1] < DigitCount[#, 3, 2] &]

A370854 Numbers m such that c(0) <= c(1) < c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

2, 8, 17, 23, 25, 26, 35, 47, 51, 53, 59, 61, 65, 69, 71, 73, 75, 77, 79, 80, 107, 134, 143, 152, 155, 158, 159, 160, 161, 179, 185, 187, 197, 206, 209, 212, 213, 214, 215, 221, 223, 227, 230, 231, 232, 233, 235, 237, 238, 239, 241, 242
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 8 is 22, for which c(0)=0 <= c(1)=0 < c(2)=2. So 8 is in the sequence.

Crossrefs

Cf. A007089, A370853, A370855, A370856.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] < DigitCount[#, 3, 2] &]

A370855 Numbers m such that c(0) < c(1) <= c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

5, 7, 17, 23, 25, 44, 50, 52, 53, 68, 70, 71, 76, 77, 79, 98, 104, 106, 116, 128, 132, 134, 140, 142, 146, 150, 152, 154, 156, 158, 160, 161, 176, 178, 184, 194, 196, 200, 204, 206, 208, 210, 212, 214, 215, 220, 226, 228, 230, 232, 233, 238, 239, 241, 296
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 7 is 21, for which c(0)=0 < c(1)=1 <= c(2)=1. So 7 is in the sequence.

Crossrefs

Cf. A007089, A370853, A370854, A370856.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] < DigitCount[#, 3, 1] <= DigitCount[#, 3, 2] &]

A370856 Numbers m such that c(0) <= c(1) <= c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

2, 5, 7, 8, 11, 15, 17, 19, 21, 23, 25, 26, 35, 44, 47, 50, 51, 52, 53, 59, 61, 65, 68, 69, 70, 71, 73, 75, 76, 77, 79, 80, 98, 104, 106, 107, 116, 128, 132, 134, 140, 142, 143, 146, 150, 152, 154, 155, 156, 158, 159, 160, 161, 176, 178, 179, 184, 185, 187
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 15 is 120, for which c(0)=1 <= c(1)=1 < c(2)=1. So 15 is in the sequence.

Crossrefs

Cf. A007089, A370853, A370854, A370855.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] <= DigitCount[#, 3, 2] &]

A370860 Numbers m such that c(0) <= c(1) > c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

1, 3, 4, 10, 12, 13, 14, 16, 22, 28, 30, 31, 32, 34, 36, 37, 38, 39, 40, 41, 42, 43, 46, 48, 49, 58, 64, 66, 67, 85, 86, 88, 91, 92, 93, 94, 95, 96, 97, 100, 102, 103, 109, 110, 111, 112, 113, 114, 115, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 16 is 121, for which c(0)=0 <= c(1)=2 > c(2)=1.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370853, A370859, A370861, A370862.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] > DigitCount[#, 3, 2] &]

A370861 Numbers m such that c(0) < c(1) >= c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

1, 4, 5, 7, 10, 12, 13, 14, 16, 22, 31, 32, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 48, 49, 50, 52, 58, 64, 66, 67, 68, 70, 76, 85, 91, 93, 94, 95, 97, 98, 103, 104, 106, 109, 111, 112, 113, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 127, 128
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 16 is 121, for which c(0)=0 < c(1)=2 >= c(2)=1.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370853, A370859, A370860, A370862.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] < DigitCount[#, 3, 1] >= DigitCount[#, 3, 2] &]

A370862 Numbers m such that c(0) <= c(1) >= c(2), where c(k) = number of k's in the ternary representation of m.

Original entry on oeis.org

1, 3, 4, 5, 7, 10, 11, 12, 13, 14, 15, 16, 19, 21, 22, 28, 30, 31, 32, 34, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 48, 49, 50, 52, 58, 64, 66, 67, 68, 70, 76, 85, 86, 88, 91, 92, 93, 94, 95, 96, 97, 98, 100, 102, 103, 104, 106, 109, 110, 111, 112, 113, 114
Offset: 1

Views

Author

Clark Kimberling, Mar 09 2024

Keywords

Examples

			The ternary representation of 15 is 120, for which c(0)=1 <= c(1)=1 >= c(2)=1.

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370853, A370859, A370860, A370861.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] <= DigitCount[#, 3, 1] >= DigitCount[#, 3, 2] &]
Showing 1-10 of 12 results. Next

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

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