A090002 Length of longest contiguous block of 1's in binary expansion of n-th triangular number.

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

Author

Reinhard Zumkeller, Nov 20 2003

Keywords

• nonn
• base

Comments

a(n) = A038374(A000217(n)).

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16384
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A000120, A090001, A090003, A089999, A090048.

Programs

Mathematica

Join[{0},Max[Length/@Select[Split[IntegerDigits[#,2]],#[[1]]==1&]]&/@ Accumulate[ Range[110]]] (* Harvey P. Dale, Jul 28 2022 *)