using namespace std;
#include<vector>
#include<string>
vector<int>Manachar(const string&s)
{
	vector<int>ret(s.size());
	int i=0,j=0;
	while(i<s.size())
	{
		while(i-j>=0&&i+j<s.size()&&s[i-j]==s[i+j])j++;
		ret[i]=j;
		int k=1;
		while(i-k>=0&&i+k<s.size()&&k+ret[i-k]<j)ret[i+k]=ret[i-k],k++;
		i+=k;j-=k;
	}
	return ret;
}
#include<iostream>
string s;
int cnt[5050];
main()
{
	cin>>s;
	string t="";
	t+=s[0];
	for(int i=1;i<s.size();i++)t+='$',t+=s[i];
	vector<int>M=Manachar(t);
	for(int i=0;i<s.size();i++)
	{
		int len=i+1;
		if(M[i]>=len)
		{
			for(int j=i+1;j<s.size();j++)
			{
				int len2=j-i;
				if(M[i*2+1+len2]>=len2)cnt[j]++;
			}
		}
	}
	long ans=0,cs=0;
	for(int i=1;i+2<s.size();i++)
	{
		for(int j=i+2;j<s.size();j++)
		{
			int len=s.size()-j;
			if(M[M.size()-len]>=len)ans+=cnt[i];
		}
	}
	cout<<ans<<endl;
}