#include <bits/stdc++.h>
using namespace std;

typedef long long ll;
typedef vector< int > vi;
typedef vector< vi > vvi;
typedef vector< ll > vl;
typedef vector< vl > vvl;
typedef pair< int, int > pii;
typedef vector< pii > vp;
typedef vector< double > vd;
typedef vector< vd > vvd;
typedef vector< string > vs;

template< class T1, class T2 >
int upmin( T1 &x, T2 v ){
  if( x > v ){
    x = v;
    return 1;
  }
  return 0;
}

template< class T1, class T2 >
int upmax( T1 &x, T2 v ){
  if( x < v ){
    x = v;
    return 1;
  }
  return 0;
}

const int INF = 0x3f3f3f3f;

string S;

void init(){
  cin >> S;
}

vi max_plen;
vvi lb2rb; // [ lb, rb )
vi sfspcnt; // suffix sum of palindrome count

void preprocess(){
  string ns = "$";
  for( int i = 0; i < S.size(); ++i )
    ns = ns + S[ i ] + "$";
  swap( S, ns );
  max_plen = vi( S.size() );
  for( int i = 0; i < S.size(); ++i ){
    for( int len = 0; 0 <= i - len and i + len < S.size(); ++len ){
      if( S[ i - len ] != S[ i + len ] )
        break;
      max_plen[ i ] = len;
    }
  }
  lb2rb = vvi( S.size() + 1 );
  for( int i = 0; i < S.size(); ++i )
    for( int j = 0; j <= max_plen[ i ]; ++j )
      lb2rb[ i - j ].emplace_back( i + j + 1 );
  sfspcnt = vi( S.size() + 1 + 1 );
  for( int i = S.size() - 3; i >= 0; --i )
    sfspcnt[ i ] = sfspcnt[ i + 1 ] + ( not lb2rb[ i ].empty() and lb2rb[ i ].back() == S.size() );
}

void solve(){
  ll ans = 0;
  for( int i = 0; i < lb2rb[ 0 ].size(); ++i ) if( lb2rb[ 0 ][ i ] > 1 )
    for( int j = 0; j < lb2rb[ lb2rb[ 0 ][ i ] ].size(); ++j ) if( lb2rb[ lb2rb[ 0 ][ i ] ][ j ] - j > 1 or S[ lb2rb[ 0 ][ i ] ] != '$' ){
      // cout << lb2rb[ 0 ][ i ] << " " << lb2rb[ lb2rb[ 0 ][ i ] ][ j ] << endl;
      // cout << sfspcnt[ lb2rb[ lb2rb[ 0 ][ i ] ][ j ] + 1 + ( S[ lb2rb[ lb2rb[ 0 ][ i ] ][ j ] ] == '$' ) ] << endl;
      ans += sfspcnt[ lb2rb[ lb2rb[ 0 ][ i ] ][ j ] + 1 + ( S[ lb2rb[ lb2rb[ 0 ][ i ] ][ j ] ] == '$' ) ];
    }
  cout << ans << endl;
}

signed main(){
  ios::sync_with_stdio( 0 );
  init();
  preprocess();
  solve();
  return 0;
}