#include <bits/stdc++.h>
#define ll long long
#define int long long
using namespace std;

const int maxn = 1010;
const int maxp = maxn*5;

int n;
string str;

int f[maxn][maxn];
int mat[maxn][maxn];

signed main()
{
	ios_base::sync_with_stdio(false);
	cin.tie(0);
	
	cin>>str; n=str.size(); str=' '+str+"#!";
	
	for(int i=n;i>=1;i--)
	{
		for(int j=i+1;j<=n+1;j++)
		{
			if(j>n || str[i]!=str[j]) mat[i][j]=0;
			else mat[i][j]= 1+mat[i+1][j+1];
		}
	}
	
	int ans=0;
	for(int i=1;i<n;i++)
	{
		for(int j=i+1;j<=n;j++)
		{
			int len=min(j-i, mat[i][j]);
			ans+=len;
		}
	}
	
	for(int i=1;i<=n;i++)
	{
		for(int j=i;j<=n;j++)
		{
			int len=j-i+1;
			
			vector<int>V;
			
//			int pans=ans;
			for(int k=j+1;k+len-1<=n;k++)
			{
				if( mat[i][k]>=len ) V.push_back(k);
			}
			int sz=V.size();
			int now=0;
			
			for(int k=1;k<=i-1 && j+k<=n;k++)
			{
				while( now<sz && j+k>=V[now] ) now++;
				if(now==sz) break;
				
				if(mat[i-k][j+1]>=k) ans+= sz-now;
			}
			
	//		if(ans!=pans) cerr<< i<<' '<<j<<"  :  "<<ans-pans<<endl;
		}
	}
	
	
	for(int i=1;i<=n;i++)
	{
		int j=n-i+1;
		if(i<j) swap(str[i],str[j]);
	}
	
	for(int i=n;i>=1;i--)
	{
		for(int j=i+1;j<=n+1;j++)
		{
			if(j>n || str[i]!=str[j]) mat[i][j]=0;
			else mat[i][j]= 1+mat[i+1][j+1];
		}
	}
	
	for(int i=1;i<=n;i++)
	{
		for(int j=i;j<=n;j++)
		{
			int len=j-i+1;
			
			vector<int>V;
			
			for(int k=j+1;k+len-1<=n;k++)
			{
				if( mat[i][k]>=len ) V.push_back(k);
			}
			int sz=V.size();
			int now=0;
			
			for(int k=1;k<=i-1 && j+k<=n;k++)
			{
				while( now<sz && j+k>=V[now] ) now++;
				if(now==sz) break;
				
				if(mat[i-k][j+1]>=k) ans+= sz-now;
			}
		}
	}
	
	cout<<ans<<endl;
	
	return 0;
}