#include<bits/stdc++.h>
using namespace std;
using ll=long long;
const int N=800;
const int g=27,mod=998244353;
int n;
char s[N+5];
int hv[N+5][N+5];
unordered_map<int,int> cnt;
ll ans;
int main(){
    scanf("%s",s+1);
    n=strlen(s+1);
    for(int i=1;i<=n;i++)
        for(int j=i;j<=n&&j-i+1<=n/2;j++)
            hv[i][j]=(1ll*hv[i][j-1]*g+s[j]-'a'+1)%mod;
    for(int d=1;d<=n/2;d++){
        cnt.clear();
        for(int j=n;j>=d;j--){
            for(int i=j-d+1;i&&j-i+1<2*d;i--)
                if(hv[i][j-d]==hv[i+d][j])
                    ans+=cnt[hv[j-d+1][i+d-1]];
            for(int i=j;i<=n&&i-j+1<=d;i++)
                cnt[hv[j][i]]++;
        }
        cnt.clear();
        for(int i=1;i<=n;i++){
            for(int j=i+d;j<=n&&j-i+1<2*d;j++){
                if(hv[i][j-d]==hv[i+d][j])
                    ans+=cnt[hv[j-d+1][i+d-1]];
            }
            for(int j=i;j&&i-j+1<=d;j--)
                cnt[hv[j][i]]++;
        }
    }
    printf("%lld\n",ans);
    return 0;
}