#include<bits/stdc++.h>
using namespace std;
char c[810];int n,ch[330100][26],id[810][810],cn,su[330010];
long long ans;
void sol(int o){
    memset(su,0,sizeof(su));
    memset(ch,0,sizeof(ch)),cn=1;
    for(int i=1;i<=n;i++){
        int u=1;
        for(int j=i;j<=n;j++){
            int p=c[j]-'a';
            if(!ch[u][p])ch[u][p]=++cn;
            u=ch[u][p];
            id[i][j]=u;
        }
    }
    for(int i=1;i<=n;i++){
        for(int j=i;j<=n;j++)for(int k=j+o;k<=n&&k-j<j-i+1;k++){
            if(k>j&&c[k]!=c[i+k-j-1])break;
            ans+=su[id[i+(k-j)][j]];
        }
        for(int j=1;j<=i;j++)su[id[j][i]]++;
    }
}
int main(){
    scanf("%s",c+1);n=strlen(c+1);
    sol(0);reverse(c+1,c+n+1);sol(1);
    return printf("%lld",ans),0;
}