A043289 Maximal run length in base-15 representation of n.

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

Offset

1,16

Links

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

Maple

A043289 := proc(n) dgs := convert(n, base, 15) ; a :=1 ; rl :=1 ; for i from 2 to nops(dgs) do if op(i, dgs) <> op(i-1, dgs) then a := max(a, rl) ; rl := 1; else rl := rl+1 ; end if; end do: a := max(a, rl) ; a; end proc; # R. J. Mathar, Jan 11 2012

Mathematica

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

Prog

(PARI) A043289(n, b=15){=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

Crossrefs

Cf. A043276-A043290 for base-2 to base-16 analogs.

Cf. A135518 (positions of records, also the first occurrence of each n).

Sequence in context: A194333 A382965 A203640 * A384914 A392275 A063775

Adjacent sequences: A043286 A043287 A043288 * A043290 A043291 A043292

Keyword

nonn,base

Author

Clark Kimberling

Status

approved