#pragma GCC optimize("Ofast","unroll-loops","omit-frame-pointer","inline")
#pragma GCC option("arch=native","tune=native","no-zero-upper")
#pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx,avx2")
#pragma GCC optimize(3)

#include<bits/stdc++.h>
using namespace std;
#define ll long long 
const int N = 1e6+9;
int n,f[N];
char s[N];
int las,cnt,head[N],tot;
struct SAM{
    int ch[26],len,fa;
    SAM(){memset(ch,0,sizeof(ch));len=fa=0;}
}t[N];

void ins(int c){
    int p=las,np=las=++cnt;
    t[np].len=t[p].len+1;
    for(;p&&!t[p].ch[c];p=t[p].fa) t[p].ch[c]=np;
    if(!p) t[np].fa=1;
    else{
        int q=t[p].ch[c];
        if(t[q].len==t[p].len+1) t[np].fa=q;
        else{
            int nq=++cnt;t[nq]=t[q];
            t[nq].len=t[p].len+1;
            t[q].fa=t[np].fa=nq;
            for(;p&&t[p].ch[c]==q;p=t[p].fa) t[p].ch[c]=nq;
        }
    }
}
int cc[N][30];

int main(){
    //freopen("C.in","r",stdin);
//    freopen("C.out","w",stdout);
    cnt=1,las=1;
    scanf("%s",s);n=strlen(s);
    for(int i=0;i<n;i++) ins(s[i]-'a');
    for(int i=0;i<n;i++){
		for(int j=0;j<26;j++) cc[i][j]=cc[i-1][j]+(s[i]-'a'==j);
	}
    ll ans=0;
    int u=1;f[1]=1;
    for(int i=0;i<n;i++){
        u=t[u].ch[s[i]-'a'];
        int v=u;
        while(!f[v]&&v){
        	//printf("%d\n",v);
//             for(int j=i-t[v].len+1;j<i-t[t[v].fa].len;j++)
//                 if(t[v].ch[s[j]-'a']){
//                     ans++;
//                 }
			for(int j=0;j<26;j++){
				if(t[v].ch[j]) ans+=cc[i-t[t[v].fa].len-1][j]-cc[i-t[v].len][j];
			}
            int j=i-t[t[v].fa].len;
            ans+=(t[t[v].fa].ch[s[j]-'a']>0);
            f[v]=1,v=t[v].fa;
        }
    }
    printf("%lld\n",ans);
    return 0;
}