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,17

Links

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

Mathematica

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

Prog

(PARI) 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
(Python)
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

Crossrefs

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

Sequence in context: A327103 A290105 A191898 * A356153 A194333 A203640

Adjacent sequences: A043287 A043288 A043289 * A043291 A043292 A043293

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Antti Karttunen, Sep 21 2018

Status

approved