#import<vector>
#import<algorithm>
#import<cstdio>
char s[5001];int f[5000][5000],l=0,i=0,j,k;main(){long r=0;std::vector<int>H,T;for(scanf("%s",s);s[l];l++);for(;i<l;i++)for(k=0;k<2;k++)for(j=0;0<=i-j&&i+j+k<l&&s[i-j]==s[i+j+k];j++)f[i-j][i+j+k]=1;for(i=0;i<l;i++){if(f[0][i])H.push_back(i);if(f[i][l-1])T.push_back(i);}for(auto&e:H)for(i=e+1;i<l;i++)if(f[e+1][i])r+=T.end()-std::lower_bound(T.begin(),T.end(),i+2);printf("%lld\n",r);}