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.

Previous Showing 41-50 of 57 results. Next

A297778 Number of distinct runs in base-10 digits of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2
Offset: 1

Views

Author

Clark Kimberling, Feb 03 2018

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences. A043562(n) = a(n) for n=1..100, but not for n=101.

Examples

			14! in base-10: 2,7,0,0,1,7,3,0,1,3,0,0; ten runs, of which 6 are distinct, so that a(14!) = 6.

Links

Crossrefs

Cf. A043562 (number of runs, not necessarily distinct), A297770.

Programs

  • Mathematica
    b = 10; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

A297779 Number of distinct runs in base-11 digits of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2
Offset: 1

Views

Author

Clark Kimberling, Feb 03 2018

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Examples

			11! in base-11: 2,0,5,9,4,0,10,0; eight runs, of which 6 are distinct, so that a(11!) = 6.

Links

Crossrefs

Cf. A043563 (number of runs, not necessarily distinct), A297770.

Programs

  • Mathematica
    b = 11; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

A297780 Number of distinct runs in base-12 digits of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2
Offset: 1

Views

Author

Clark Kimberling, Feb 03 2018

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Examples

			3006865 in base-12: 1,0,1,0,1,0,1; seven runs, of which 2 are distinct, so that a(3006865) = 2.

Links

Crossrefs

Cf. A043564 (number of runs, not necessarily distinct), A297770.

Programs

  • Mathematica
    b = 12; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

A297781 Number of distinct runs in base-13 digits of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2
Offset: 1

Views

Author

Clark Kimberling, Feb 03 2018

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Examples

			5200468 in base-13: 1,1,0,1,1,0,0; four runs, of which 3 are distinct, so that a(5200468) = 3.

Links

Crossrefs

Cf. A043565 (number of runs, not necessarily distinct), A297770.

Programs

  • Mathematica
    b = 13; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

A297782 Number of distinct runs in base-14 digits of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
Offset: 1

Views

Author

Clark Kimberling, Feb 03 2018

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.
Starts to differ from A043541 at n=2759. - R. J. Mathar, Jul 24 2023

Examples

			8070300 in base-14: 1,1,0,1,1,0,0; four runs, of which 3 are distinct, so that a(8070300) = 3.

Links

Crossrefs

Cf. A043566 (number of runs, not necessarily distinct), A297770.

Programs

  • Mathematica
    b = 14; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

A297784 Number of distinct runs in base-16 digits of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2
Offset: 1

Views

Author

Clark Kimberling, Feb 03 2018

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Examples

			17830144 in base-16: 1,1,0,1,1,0,0; four runs, of which 3 are distinct, so that a(17830144) = 3.

Links

Crossrefs

Cf. A043568 (number of runs, not necessarily distinct), A297770.

Programs

  • Mathematica
    b = 16; s[n_] := Length[Union[Split[IntegerDigits[n, b]]]]
Table[s[n], {n, 1, 200}]

A043557 Number of runs in base-5 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 3, 3, 3, 3, 2, 1, 2, 2, 2, 3, 3, 2, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 2, 3, 3, 3, 2, 2, 1, 2, 2, 3, 3, 3, 2, 3, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 2, 3, 3
Offset: 0

Views

Author

Clark Kimberling

Keywords

Examples

			Every positive integers occurs infinitely many times.  See A297770 for a guide to related sequences.

Crossrefs

Cf. A297773 (number of distinct runs), A297770.

Programs

  • Mathematica
    b = 5; s[n_] := Length[Split[IntegerDigits[n, b]]];
Table[s[n], {n, 1, 200}]

Extensions

Updated by Clark Kimberling, Feb 03 2018

A043558 Number of runs in base-6 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 3, 3, 3, 3, 3, 2, 1, 2, 2, 2, 2, 3, 3, 2, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 2, 2, 1, 2, 2, 2
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Crossrefs

Cf. A297774 (number of distinct runs), A297770.

Programs

  • Mathematica
    b = 6; s[n_] := Length[Split[IntegerDigits[n, b]]];
Table[s[n], {n, 1, 200}]

Extensions

Updated by Clark Kimberling, Feb 03 2018

A043559 Number of runs in base-7 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 3, 3, 3, 3, 3, 2, 1, 2, 2, 2, 2, 2, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 2
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Crossrefs

Cf. A297775 (number of distinct runs), A297770.

Programs

  • Mathematica
    b = 7; s[n_] := Length[Split[IntegerDigits[n, b]]];
Table[s[n], {n, 1, 200}]

A043560 Number of runs in base-8 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 3, 3, 3, 3, 3, 3, 2, 1, 2, 2, 2, 2, 2, 2, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3
Offset: 0

Views

Author

Clark Kimberling

Keywords

Comments

Every positive integers occurs infinitely many times. See A297770 for a guide to related sequences.

Crossrefs

Cf. A297776 (number of distinct runs), A297770.

Programs

  • Mathematica
    b = 8; s[n_] := Length[Split[IntegerDigits[n, b]]];
Table[s[n], {n, 1, 200}]

Extensions

Updated by Clark Kimberling, Feb 04 2018
Previous Showing 41-50 of 57 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.