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

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

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

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

Programs

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 *)

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