login
A090002
Length of longest contiguous block of 1's in binary expansion of n-th triangular number.
7
0, 1, 2, 2, 1, 4, 1, 3, 1, 2, 3, 1, 3, 2, 2, 4, 1, 2, 2, 5, 2, 3, 6, 1, 2, 1, 5, 4, 2, 2, 3, 5, 1, 2, 2, 3, 2, 6, 3, 2, 2, 3, 3, 3, 4, 2, 3, 2, 2, 2, 5, 3, 2, 3, 3, 2, 4, 3, 4, 3, 3, 3, 4, 6, 1, 2, 2, 3, 1, 4, 2, 7, 1, 2, 3, 2, 3, 3, 2, 2, 2, 5, 2, 4, 5, 3, 3, 4, 4, 5, 12, 2, 2, 2, 3, 3, 2, 1, 4, 2, 3, 5
OFFSET
0,3
COMMENTS
a(n) = A038374(A000217(n)).
MATHEMATICA
Join[{0}, Max[Length/@Select[Split[IntegerDigits[#, 2]], #[[1]]==1&]]&/@ Accumulate[ Range[110]]] (* Harvey P. Dale, Jul 28 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 20 2003
STATUS
approved