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