editing
approved
editing
approved
Harvey P. Dale, <a href="/A090001/b090001.txt">Table of n, a(n) for n = 0..1000</a>
approved
editing
editing
approved
Join[{0}, Table[Max[Length/@Select[Split[IntegerDigits[n^2, 2]], MemberQ[ #, 1]&]], {n, 110}]] (* Harvey P. Dale, Nov 28 2014 *)
approved
editing
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Nov 20 2003
nonn,base,new
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystemsgmail.com), Nov 20 2003
Length of longest contiguous block of 1's in binary expansion of n^2.
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
0,6
nonn,base
Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), Nov 20 2003
approved