OFFSET
0,6
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
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