// https://wandbox.org/permlink/Y56SQ7EPYsvoEv13
// を見つけたけどこれでいいの？ → 3RE，そう単純じゃないらしい

// sqrt → sqrtl にしてみた

// ll → __int128 にしてみた

#include<bits/stdc++.h>
using namespace std;
using ll=__int128;
#define rep(i,l,r)for(long long i=(l);i<(r);i++)

ll solve(ll N){
	ll sqrtlN=sqrtl(N)+3;
	vector<bool>prime(sqrtlN,true);
	vector<int>mu(sqrtlN,1);
	rep(i,2,sqrtlN)if(prime[i]){
		mu[i]*=-1;
		for(long long j=2*i;j<=sqrtlN;j+=i)prime[j]=false,mu[j]*=-1;
		for(long long j=i*i;j<=sqrtlN;j+=i*i)mu[j]=0;
	}

	auto f=[&](ll n){
		//return Σ_{x,y} n/(2(x+y)(2x+y))
		if(n<12)return (ll)0;
		// 分母がn^(2/3)以上かどうかで計算方法を変える
		ll ans=0;
		ll V=cbrt(n); // n/hoge がV未満になるものは別に数える
		ll B=n/V;  // hoge<=B ⇔ n/hoge>=V
		//for(ll x=1;2*(x+1)*(2*x+1)<=B;x++)for(ll y=1;2*(x+y)*(2*x+y)<=B;y++)ans+=n/(2*(x+y)*(2*x+y));
		ll X=(sqrtl(4*B+1)-3)/4;
		for(long long x=1;x<=X;x++){
			ll Y=(sqrtl(x*x+2*B)-3*x)/2;
			for(ll y=1;y<=Y;y++)ans+=n/(2*(x+y)*(2*x+y));
		}
		// i<=n/hoge ⇔ hoge<=n/i
		vector<ll>cnt(V+1); // cnt[i] は n/hoge>=i となる(x,y)の個数
		rep(i,1,V+1){
			ll U=n/i;
			// 2*(x+y)*(2*x+y)<=U  ⇔  y=-3x+sqrtl(x*x+2*U) / 2
			//for(ll x=1;2*(x+1)*(2*x+1)<=U;x++)cnt[i]+=(ll)((sqrtl(x*x+2*U)-3*x)/2);
			ll X=(sqrtl(4*U+1)-3)/4;
			for(long long x=1;x<=X;x++)cnt[i]+=(ll)((sqrtl(x*x+2*U)-3*x)/2);
		}
		rep(i,1,V)ans+=i*(cnt[i]-cnt[i+1]);
		return ans;
	};

	ll ans=0;
	for(long long i=1;i*i<=N;i+=2)if(mu[i])ans+=mu[i]*(f(N/i/i)-f(N/2/i/i));
	return ans;
}

int main(){
	long long n;
	cin >> n;

	cout << (long long)solve((ll)n) << endl;

	return 0;
}