#include<bits/stdc++.h>
using namespace std;
using ll=long long;
const int N=800;
const ll g=27,mod=(ll)(1e18)+3;
int n;
char s[N+5];
ll hv[N+5][N+5];
unordered_map<ll,int> cnt;
ll ans,ans1;
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 l=0;l<n/2;l++){
        cnt.clear();
        for(int i=1;i+l<=n;i++)
            cnt[hv[i][i+l]]++;
        for(int i=1;i+l<=n;i++){
            int j=i+l; ll val=hv[i][j];
            int cc=cnt[val];
            for(int k=max(1,i-l);k<=min(j,n-l);k++)
                if(hv[k][k+l]==val) cc--;
            ans1+=cc;
            for(int d=1;d<min(i,n-j+1);d++){
                if(i-d>l&&hv[i-d-l][i-d]==val) cc--;
                if(j+d<=n-l&&hv[j+d][j+d+l]==val) cc--;
                if(hv[i-d][i-1]==hv[j+1][j+d]){
                    ans+=cc;
                    // printf("%d %d %d %d\n",i-d,j+d,d,cc);
                }
            }
        }
    }
    // printf("%lld\n",ans1);
    printf("%lld\n",ans+ans1/2);
    // for(int d=1;d<=n/2;d++){
    //     for(int i=1;i<=d;i++)
    //         cnt[i].clear();
    //     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;
}