A043278 -id:A043278 - cp's OEIS frontend

A043290 Maximal run length in base 16 representation of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1

Offset: 1

Clark Kimberling

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A043276, A043277, A043278, A043279, A043280, A043281, A043282, A043283, A043284, A043285, A043286, A043287, A043288, A043289 for base-2 to base-15 analogs.

A043290[n_]:=Max[Map[Length,Split[IntegerDigits[n,16]]]];Array[A043290,100] (* Paolo Xausa, Sep 27 2023 *)

A043290(n,b=16)={my(m,c=1);while(n>0,n%b==(n\=b)%b && c++ && next;m=max(m,c);c=1);m} \\ Use optional 2nd arg to get sequences A043276 through A043289. - M. F. Hasler, Jul 23 2013

from itertools import groupby
def A043290(n): return max(len(list(g)) for k, g in groupby(hex(n)[2:])) # Chai Wah Wu, Mar 09 2023

More terms from Antti Karttunen, Sep 21 2018

A031942 Numbers with no consecutive equal base 4 digits.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 13, 14, 17, 18, 19, 24, 25, 27, 28, 29, 30, 33, 34, 35, 36, 38, 39, 44, 45, 46, 49, 50, 51, 52, 54, 55, 56, 57, 59, 68, 70, 71, 72, 73, 75, 76, 77, 78, 97, 98, 99, 100, 102, 103, 108, 109, 110, 113, 114, 115

Offset: 1

Clark Kimberling

Cf. A000975 (base-2 analog), A031941 or A043089 (base-3 analog), A031943 or A043091 (base-5 analog), A043092, ..., A043096 (base-6 through base-10 analog).

A031942 = { n | A043278(n)=1 } = A043090 \ {0}. - M. F. Hasler, Jul 23 2013

Edited by Charles R Greathouse IV, Aug 02 2010

A043287 Maximal run length in base-13 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1

Offset: 1

Clark Kimberling

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A043276, A043277, A043278, A043279, A043280, A043281, A043282, A043283, A043284, A043285, A043286, A043288, A043289, A043290 for base-2 to base-16 analogs.

A043287[n_]:=Max[Map[Length,Split[IntegerDigits[n,13]]]];Array[A043287,100] (* Paolo Xausa, Sep 27 2023 *)

A043287(n,b=13)={my(m,c=1);while(n>0,n%b==(n\=b)%b&&c++&&next;m=max(m,c);c=1);m} \\ M. F. Hasler, Jul 23 2013

More terms from Antti Karttunen, Sep 21 2018

A043288 Maximal run length in base-14 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

Offset: 1

Clark Kimberling

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A043276, A043277, A043278, A043279, A043280, A043281, A043282, A043283, A043284, A043285, A043286, A043287, A043289, A043290 for base-2 to base-16 analogs.

A043288[n_]:=Max[Map[Length,Split[IntegerDigits[n,14]]]];Array[A043288,100] (* Paolo Xausa, Sep 27 2023 *)

A043288(n,b=14)={my(m,c=1);while(n>0,n%b==(n\=b)%b&&c++&&next;m=max(m,c);c=1);m} \\ M. F. Hasler, Jul 23 2013

More terms from Antti Karttunen, Sep 21 2018

A037977 Numbers whose maximal base 4 run length is 2.

Original entry on oeis.org

5, 10, 15, 16, 20, 22, 23, 26, 31, 32, 37, 40, 41, 43, 47, 48, 53, 58, 60, 61, 62, 65, 66, 67, 69, 74, 79, 80, 81, 82, 83, 88, 89, 90, 91, 92, 93, 94, 95, 96, 101, 104, 105, 107, 111, 112, 117, 122, 124, 125, 126, 129, 130, 131, 133, 138, 143, 144, 148, 150

Offset: 1

Clark Kimberling

Cf. A043278.

Select[Range[200],Max[Length/@Split[IntegerDigits[#,4]]]==2&] (* Harvey P. Dale, Apr 09 2023 *)

More terms from Harvey P. Dale, Apr 09 2023

A037978 Numbers whose maximal base 4 run length is 3.

Original entry on oeis.org

21, 42, 63, 64, 84, 86, 87, 106, 127, 128, 149, 168, 169, 171, 191, 192, 213, 234, 252, 253, 254, 257, 258, 259, 277, 298, 319, 320, 336, 337, 338, 339, 344, 345, 346, 347, 348, 349, 350, 351, 362, 383, 384, 405, 424, 425, 427

Offset: 1

Clark Kimberling

Cf. A043278.

Select[Range[500],Max[Length/@Split[IntegerDigits[#,4]]]==3&] (* Harvey P. Dale, Jul 16 2017 *)

A037979 Numbers whose maximal base-4 run length is 4.

Original entry on oeis.org

85, 170, 255, 256, 340, 342, 343, 426, 511, 512, 597, 680, 681, 683, 767, 768, 853, 938, 1020, 1021, 1022, 1025, 1026, 1027, 1109, 1194, 1279, 1280, 1360, 1361, 1362, 1363, 1368, 1369, 1370, 1371, 1372, 1373, 1374, 1375, 1450

Offset: 1

Clark Kimberling

Cf. A043278.

cp's OEIS Frontend

A043290 Maximal run length in base 16 representation of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Python

Extensions

A031942 Numbers with no consecutive equal base 4 digits.

Views

Author

Keywords

Crossrefs

Formula

Extensions

A043287 Maximal run length in base-13 representation of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A043288 Maximal run length in base-14 representation of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A037977 Numbers whose maximal base 4 run length is 2.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions

A037978 Numbers whose maximal base 4 run length is 3.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A037979 Numbers whose maximal base-4 run length is 4.

Views

Author

Keywords

Crossrefs