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.

A370853 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

17, 23, 25, 53, 71, 77, 79, 134, 152, 158, 160, 161, 206, 212, 214, 215, 230, 232, 233, 238, 239, 241, 296, 314, 320, 322, 350, 386, 398, 402, 404, 422, 428, 430, 440, 452, 456, 458, 464, 466, 470, 474, 476, 478, 480, 482, 484, 485, 530, 536, 538, 554, 556
Offset: 1

Views

Author

Clark Kimberling, Mar 03 2024

Keywords

Examples

			The ternary representation of 17 is 122, for which c(0)=0 < c(1)=1 < c(2)=2.

Links

Crossrefs

Cf. A007089, A077267, A062756, A081603.
Cf. A370854, A370855, A370856, A370859, A370863, A370870.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] < DigitCount[#, 3, 1] < DigitCount[#, 3, 2] &]
  • PARI
    check(m) = {my(c0=0, c1=0, c2=0, s=Vec(digits(m, 3)));
for(i=1, length(s), if(s[i]==0, c0+=1, if(s[i]==1, c1+=1, if(s[i]==2, c2+=1,))));
c0John Tyler Rascoe, Mar 11 2024

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] &]

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] &]

A370865 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, 29, 33, 45, 54, 55, 56, 57, 60, 62, 63, 72, 74, 78, 83, 87, 89, 99, 101, 105, 135, 137, 141, 153, 162, 163, 164, 165, 167, 168, 169, 170, 171, 173, 177, 180, 181, 182, 183, 186, 188, 189, 191, 195, 207, 216, 217, 218, 219, 222, 224, 225, 234
Offset: 1

Views

Author

Clark Kimberling, Mar 11 2024

Keywords

Examples

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

Crossrefs

Cf. A007089, A370853, A370859, A370863, A370864, A370866.

Programs

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

A370866 Positive integers 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, 11, 15, 18, 19, 20, 21, 24, 26, 29, 33, 35, 45, 47, 51, 54, 55, 56, 57, 59, 60, 61, 62, 63, 65, 69, 72, 73, 74, 75, 78, 80, 83, 87, 89, 99, 101, 105, 107, 135, 137, 141, 143, 153, 155, 159, 162, 163, 164, 165, 167, 168, 169, 170, 171, 173, 177, 179
Offset: 1

Views

Author

Clark Kimberling, Mar 11 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, A370864, A370865.

Programs

  • Mathematica
    Select[Range[1000], DigitCount[#, 3, 0] >= DigitCount[#, 3, 1] <= DigitCount[#, 3, 2] &]
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.