double f(ll n :Memoize){
	if(n==1){
		return 0;
	}else{
		ll z=0;
		rep(i,1,n){
			z+=f(gcd(i,n));
		}
		return(z+n)/(n-1.);
	}
}
{
	ll@n;
	wt(f(n));
}