a[n]：=(
距离=N[地图[Sqrt[N^2-#^2]/2&，范围[N-1]]；
topDeltas1=展平[Map[#-距离&，Range[n/2]]]；
topDeltas2=选择[topDeltas1，0<#<=.5&]；
topDeltas3=地图[{#，1}&，topDeltas2]；
btmDeltas1=平展[Map[distances-#&，Range[n/2]]]；
btmDeltas2=选择[btmDelta 1，0<=#<.5&]；
btmDeltas3=映射[{#，-1}&，btmDelta 2]；
allDeltas4=连接[topDeltas3，btmDeltas3,{0,0}]；
allDeltas5=排序依据[allDeltas，{第一，最后[#]&}]；
cumulativeChanges=累加[allDeltas5[[All，2]]；
startSqrs=2总和[楼层[2 Sqrt[（n/2）^2-k^2]，{k，n/2}]；
返回[startSqrs+Max[cumulativeChanges]]）
映射[a[#]&，范围[0，51]]（*此序列*）
