#include<bits/stdc++.h>
using namespace std;
#define rep(i,n) for(int i=1;i<=n;i++)
#define pb push_back
#define mp make_pair
#define data dataa
using LL=long long;
using ULL=unsigned long long;
using LD=long double;
const int N=810;
char s[N];
int pre[N][N],n,ans[N];
int main()
{
    scanf("%s",s+1);
    n=strlen(s+1);s[0]=s[n+1]='#';
    rep(i,n)for(int j=i+1;j<=n;j++)
    {
        for(;s[i+pre[i][j]]==s[j+pre[i][j]];pre[i][j]++);
    }
    LL all=0;
    rep(i,n)for(int j=i;j<=n;j++)
    {
        int len=j-i+1;
        ans[len-1]=0;
        for(int k=len;k<i;k++)ans[k]=ans[k-1]+(pre[k-len+1][i]>=len);
        if(i-1>=len)all+=ans[i-1];
        ans[n-len+2]=0;
        for(int k=n-len+1;k>j;k--)ans[k]=ans[k+1]+(pre[i][k]>=len);
        rep(k,i-1)
        {
            if(j+k>n)break;
            if(pre[i-k][j+1]<k)continue;
            if(i-k-1>=len)all+=ans[i-k-1];
            if(j+k+1<=n-len+1)all+=ans[j+k+1];
        }
    }
    printf("%lld\n",all);
    return 0;
}