read n
read s
for((U=MG=1;i<n;++i)){
((${s:i:1}))&&for((j=i;k=++j*2-i,k<n;r+=${s:j:1}${s:k:1})){
:
}
}
echo $[r]