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 19 results. Next

A292451 Numbers where 1 outnumbers any other digit.

Original entry on oeis.org

1, 11, 101, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 131, 141, 151, 161, 171, 181, 191, 211, 311, 411, 511, 611, 711, 811, 911, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1021, 1031, 1041
Offset: 1

Views

Author

Halfdan Skjerning, Sep 16 2017

Keywords

Examples

			101 has more 1's than any other digit, whereas 1001 has as many 0's as 1's.

Crossrefs

Cf. A292449, A292450, A292452, A292453, A292454, A292455, A292456, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 1200], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)

A292456 Numbers where 6 outnumbers any other digit.

Original entry on oeis.org

6, 66, 166, 266, 366, 466, 566, 606, 616, 626, 636, 646, 656, 660, 661, 662, 663, 664, 665, 666, 667, 668, 669, 676, 686, 696, 766, 866, 966, 1066, 1266, 1366, 1466, 1566, 1606, 1626, 1636, 1646, 1656, 1660, 1662, 1663, 1664, 1665, 1666
Offset: 1

Views

Author

Halfdan Skjerning, Sep 18 2017

Keywords

Examples

			606 has more 6's than any other digit, whereas 6006 has as many 0's as 6's.

Links

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 1700], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 6] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)
n6Q[n_]:=Module[{dc=DigitCount[n]},dc[[6]]>Max[Drop[dc,{6}]]]; Select[ Range[ 2000],n6Q] (* Harvey P. Dale, Feb 19 2018 *)
  • PARI
    isok(n) = {d = digits(n); v = vector(10, n, #select(x->x==(n-1), d)); for (k=1, #v, if ((k != 7) && (v[k] >= v[7]), return(0));); return(1);} \\ Michel Marcus, Sep 21 2017

A292457 Numbers where 7 outnumbers any other digit.

Original entry on oeis.org

7, 77, 177, 277, 377, 477, 577, 677, 707, 717, 727, 737, 747, 757, 767, 770, 771, 772, 773, 774, 775, 776, 777, 778, 779, 787, 797, 877, 977, 1077, 1277, 1377, 1477, 1577, 1677, 1707, 1727, 1737, 1747, 1757, 1767, 1770, 1772, 1773, 1774, 1775, 1776, 1777
Offset: 1

Views

Author

Halfdan Skjerning, Sep 18 2017

Keywords

Examples

			707 has more 7's than any other digit, whereas 7007 has as many 0's as 7's.

Links

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292458.

Programs

  • Mathematica
    Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 7] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)
Select[Range[2000],Max[Drop[DigitCount[#],{7}]]Harvey P. Dale, Oct 07 2023 *)
  • PARI
    isok(n) = {d = digits(n); v = vector(10, n, #select(x->x==(n-1), d)); for (k=1, #v, if ((k != 8) && (v[k] >= v[8]), return(0));); return(1);} \\ Michel Marcus, Sep 21 2017

A292449 Numbers where 9 outnumbers any other digit.

Original entry on oeis.org

9, 99, 199, 299, 399, 499, 599, 699, 799, 899, 909, 919, 929, 939, 949, 959, 969, 979, 989, 990, 991, 992, 993, 994, 995, 996, 997, 998, 999, 1099, 1299, 1399, 1499, 1599, 1699, 1799, 1899, 1909, 1929, 1939, 1949, 1959, 1969, 1979, 1989, 1990, 1992, 1993, 1994
Offset: 1

Views

Author

Halfdan Skjerning, Sep 16 2017

Keywords

Examples

			909 has more 9's than any other digit, whereas 9009 has as many 0's as 9's.

Crossrefs

Cf. A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 3000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateRight@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)

Extensions

More terms from Michael De Vlieger, Sep 16 2017

A292452 Numbers where 2 outnumbers any other digit.

Original entry on oeis.org

2, 22, 122, 202, 212, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 232, 242, 252, 262, 272, 282, 292, 322, 422, 522, 622, 722, 822, 922, 1022, 1202, 1220, 1222, 1223, 1224, 1225, 1226, 1227, 1228, 1229, 1232, 1242, 1252, 1262, 1272, 1282, 1292, 1322, 1422
Offset: 1

Views

Author

Halfdan Skjerning, Sep 16 2017

Keywords

Examples

			202 has more 2's than any other digit, whereas 2002 has as many 0's as 2's.

Crossrefs

Cf. A292449, A292450, A292451, A292453, A292454, A292455, A292456, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 1300], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 2] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)
  • Python
    def ok(n):
  s=str(n); return s.count('2') > max([0]+[s.count(d) for d in s if d!='2'])
print([m for m in range(1500) if ok(m)]) # Michael S. Branicky, Feb 22 2021

A292453 Numbers where 3 outnumbers any other digit.

Original entry on oeis.org

3, 33, 133, 233, 303, 313, 323, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 343, 353, 363, 373, 383, 393, 433, 533, 633, 733, 833, 933, 1033, 1233, 1303, 1323, 1330, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1343, 1353, 1363, 1373, 1383, 1393
Offset: 1

Views

Author

Halfdan Skjerning, Sep 16 2017

Keywords

Examples

			303 has more 3's than any other digit, whereas 3003 has as many 0's as 3's.

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292454, A292455, A292456, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)
n3oQ[n_]:=Module[{dc=DigitCount[n]},Max[dc]==dc[[3]]&&Count[dc,dc[[3]]] == 1]; Select[Range[3000],n3oQ] (* Harvey P. Dale, Oct 07 2018 *)

Extensions

Corrected by Harvey P. Dale, Oct 07 2018

A292454 Numbers where 4 outnumbers any other digit.

Original entry on oeis.org

4, 44, 144, 244, 344, 404, 414, 424, 434, 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 454, 464, 474, 484, 494, 544, 644, 744, 844, 944, 1044, 1244, 1344, 1404, 1424, 1434, 1440, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 1449, 1454, 1464, 1474, 1484, 1494
Offset: 1

Views

Author

Halfdan Skjerning, Sep 16 2017

Keywords

Examples

			404 has more 4's than any other digit, whereas 4004 has as many 0's as 4's.

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292455, A292456, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 4] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)

Extensions

More terms from Michael De Vlieger, Sep 16 2017

A292455 Numbers where 5 outnumbers any other digit.

Original entry on oeis.org

5, 55, 155, 255, 355, 455, 505, 515, 525, 535, 545, 550, 551, 552, 553, 554, 555, 556, 557, 558, 559, 565, 575, 585, 595, 655, 755, 855, 955, 1055, 1255, 1355, 1455, 1505, 1525, 1535, 1545, 1550, 1552, 1553, 1554, 1555, 1556, 1557, 1558, 1559, 1565, 1575, 1585
Offset: 1

Views

Author

Halfdan Skjerning, Sep 16 2017

Keywords

Examples

			505 has more 5's than any other digit, whereas 5005 has as many 0's as 5's.

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292456, A292457, A292458.

Programs

  • Mathematica
    Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 5] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)

Extensions

More terms from Michael De Vlieger, Sep 16 2017

A292458 Numbers where 8 outnumbers any other digit.

Original entry on oeis.org

8, 88, 188, 288, 388, 488, 588, 688, 788, 808, 818, 828, 838, 848, 858, 868, 878, 880, 881, 882, 883, 884, 885, 886, 887, 888, 889, 898, 988, 1088, 1288, 1388, 1488, 1588, 1688, 1788, 1808, 1828, 1838, 1848, 1858, 1868, 1878, 1880, 1882, 1883, 1884, 1885, 1886, 1887, 1888
Offset: 1

Views

Author

Halfdan Skjerning, Sep 18 2017

Keywords

Examples

			808 has more 8's than any other digit, whereas 8008 has as many 0's as 8's.

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457.

Programs

  • Mathematica
    Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 8] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)
  • PARI
    isok(n) = {d = digits(n); v = vector(10, n, #select(x->x==(n-1), d)); for (k=1, #v, if ((k != 9) && (v[k] >= v[9]), return(0));); return(1);} \\ Michel Marcus, Sep 21 2017

A292730 Numbers in which 0 outnumbers all other digits together.

Original entry on oeis.org

0, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000, 10001, 10002, 10003, 10004, 10005, 10006, 10007, 10008, 10009, 10010, 10020, 10030, 10040, 10050, 10060, 10070, 10080, 10090, 10100, 10200, 10300, 10400, 10500, 10600, 10700, 10800, 10900, 11000
Offset: 1

Views

Author

Halfdan Skjerning, Sep 22 2017

Keywords

Comments

Subset of A292450.
Numbers n such that A055641(n) > (A055642(n)/2). - Felix Fröhlich, Sep 22 2017
Also numbers whose median of the digits is equal to 0. - Stefano Spezia, Oct 04 2023

Examples

			100 has more 0's than any other digit, whereas both 1001 and 1002 have as many other digits as 0's.

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292731, A292732, A292733, A292734, A292735, A292736, A292737, A292738, A292739.
Cf. A055641, A055642.

Programs

  • Mathematica
    Select[Range[0, 11000], Total@ #1 < First@ #2 & @@ TakeDrop[DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)
  • PARI
    a055641(n)=if(n, n=digits(n); sum(i=2, #n, n[i]==0), 1) \\ after Charles R Greathouse IV
is(n) = a055641(n) > (#Str(n)/2) \\ Felix Fröhlich, Sep 22 2017
Showing 1-10 of 19 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.