program ABC162D
    implicit none
    integer(8)::N,r,g,b,i,j,ans
    character(4000)::S
    read*,N,S
    r=0
    g=0
    b=0

    do i=1,N
        if(S(i:i)=="R")r=r+1
        if(S(i:i)=="G")g=g+1
        if(S(i:i)=="B")b=b+1
    end do

    ans=r*g*b

    do i=1,N
        do j=1,N
            if(i+2*j<=N)then
                if(S(i:i)/=S(i+j:i+j).and.S(i+j:i+j)/=S(i+2*j:i+2*j).and.S(i+2*j:i+2*j)/=S(i:i))then
                    ans=ans-1
                end if
            end if
        end do
    end do

    print'(i0)',ans
end program ABC162D