#import<vector>
#import<algorithm>
#import<cstdio>
char s[5001];
bool f[5000][5000];
int main(){
	long long r=0;int l=0,i=0,j,k;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;j++){if(s[i-j]!=s[i+j+k])break;f[i-j][i+j+k]=true;}
	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);
}