login
A090001
Length of longest contiguous block of 1's in binary expansion of n^2.
7
0, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 4, 1, 1, 2, 3, 1, 1, 1, 2, 2, 3, 4, 1, 1, 3, 1, 2, 2, 2, 3, 4, 1, 1, 1, 2, 1, 2, 2, 5, 2, 2, 3, 3, 4, 6, 1, 1, 1, 2, 3, 1, 1, 5, 2, 4, 2, 2, 2, 2, 3, 3, 4, 5, 1, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 6, 2, 3, 5, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 6, 2, 1, 3, 1, 2, 1, 2, 2, 2, 3, 5
OFFSET
0,6
COMMENTS
a(n) = A038374(A000290(n)).
LINKS
MATHEMATICA
Join[{0}, Table[Max[Length/@Select[Split[IntegerDigits[n^2, 2]], MemberQ[ #, 1]&]], {n, 110}]] (* Harvey P. Dale, Nov 28 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 20 2003
STATUS
approved