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 11-16 of 16 results.

A044825 Positive integers having distinct base-14 run lengths.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 196, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 226, 241, 256, 271, 286, 301, 316, 331, 346, 361, 376, 391, 392, 407, 420, 421, 422, 423
Offset: 1

Views

Author

Clark Kimberling

Keywords

Examples

			346 = 1AA_14 is in the sequence as it has distinct run lengths of distinct digits (1, 2). - _David A. Corneth_, Jan 04 2021

Links

Crossrefs

Cf. A044813, A044814, A044815, A044816, A044817, A044818, A044819, A044820, A044821, A044822, A044823, A044824, A044825, A044826, A044827 (base 2 to base 16).

A044826 Positive integers having distinct base-15 run lengths.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 225, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 257, 273, 289, 305, 321, 337, 353, 369, 385, 401, 417, 433, 449, 450, 466
Offset: 1

Views

Author

Clark Kimberling

Keywords

Examples

			337 = 177_15 is in the sequence as it has distinct run lengths of distinct digits (1, 2). - _David A. Corneth_, Jan 04 2021

Links

Crossrefs

Cf. A044813, A044814, A044815, A044816, A044817, A044818, A044819, A044820, A044821, A044822, A044823, A044824, A044825, A044826, A044827 (base 2 to base 16).

A044827 Positive integers having distinct base-16 run lengths.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 34, 51, 68, 85, 102, 119, 136, 153, 170, 187, 204, 221, 238, 255, 256, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 290, 307, 324, 341, 358, 375, 392, 409, 426, 443, 460, 477
Offset: 1

Views

Author

Clark Kimberling

Keywords

Examples

			324 = 144_16 is in the sequence as it has distinct run lengths of distinct digits (1, 2). - _David A. Corneth_, Jan 04 2021

Links

Crossrefs

Cf. A044813, A044814, A044815, A044816, A044817, A044818, A044819, A044820, A044821, A044822, A044823, A044824, A044825, A044826, A044827 (base 2 to base 16).

A297142 Numbers whose base-8 digits d(m), d(m-1),..., d(0) have m=0 or else d(i) = d(i+1) for some i in {0,1,...,m-1}.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 64, 72, 73, 74, 75, 76, 77, 78, 79, 82, 91, 100, 109, 118, 127, 128, 137, 144, 145, 146, 147, 148, 149, 150, 151, 155, 164, 173, 182, 191, 192, 201, 210, 216, 217, 218, 219, 220, 221, 222, 223, 228, 237, 246
Offset: 1

Views

Author

Clark Kimberling, Jan 15 2018

Keywords

Comments

These numbers comprise the complement of the set of numbers in the union of A297140 and A297141.
Differs from A044819 first for 513 = 1001_8, which has two consecutive equal digits and is in this sequence, but has two runs of equal length (1), and is not in A044819. - R. J. Mathar, Jan 17 2018

Examples

			Base-8 digits of 5000: 1,1,6,1,0, so that 5000 is in the sequence.

Crossrefs

Cf. A297140, A297142.

Programs

  • Maple
    read("transforms") :
isA297142 := proc(n)
    local dgs,ud;
    dgs := convert(n,base,8) ;
    if nops(dgs) < 2 then
        return true;
    end if;
    if 0 in DIFF(dgs) then
        true;
    else
        false;
    end if;
end proc:
for n from 1 to 300 do
    if isA297142(n) then
        printf("%d,",n) ;
    end if;
end do: # R. J. Mathar, Jan 18 2018
  • Mathematica
    a[n_, b_] := Sign[Differences[IntegerDigits[n, b]]]; z = 300;
b = 8; t = Table[a[n, b], {n, 1, 10*z}];
u = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == 1 &]   (* A297140 *)
v = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == -1 &]  (* A297141 *)
Complement[Range[z], Union[u, v]]  (* A297142 *)

A048305 Numbers whose base-8 expansions, read from left to right, have run lengths that strictly increase.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 64, 73, 82, 91, 100, 109, 118, 127, 128, 137, 146, 155, 164, 173, 182, 191, 192, 201, 210, 219, 228, 237, 246, 255, 256, 265, 274, 283, 292, 301, 310, 319, 320, 329, 338, 347, 356, 365, 374, 383, 384, 393, 402
Offset: 0

Views

Author

Patrick De Geest, Feb 15 1999

Keywords

Crossrefs

Cf. A037015, A043697, A043711, A044819, A044957.

Programs

  • Mathematica
    Select[Range[0,500],Min[Differences[Length/@Split[IntegerDigits[ #,8]]]]>0&] (* Harvey P. Dale, Dec 06 2018 *)

A048319 Numbers whose base-8 expansions, read from left to right, have run lengths that strictly decrease.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 72, 73, 74, 75, 76, 77, 78, 79, 144, 145, 146, 147, 148, 149, 150, 151, 216, 217, 218, 219, 220, 221, 222, 223, 288, 289, 290, 291, 292, 293, 294, 295, 360, 361, 362, 363, 364, 365, 366, 367, 432, 433, 434, 435
Offset: 0

Views

Author

Patrick De Geest, Feb 15 1999

Keywords

Crossrefs

Cf. A037013, A043697, A043711, A044819, A044957.

Programs

  • Mathematica
    Select[Range[0,500],Max[Differences[Length/@Split[IntegerDigits[#,8]]]] < 0&] (* Harvey P. Dale, Nov 14 2020 *)
Previous Showing 11-16 of 16 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.