#pragma GCC target("avx")
#pragma GCC optimize("O3")
#pragma GCC optimize("unroll-loops")
#include<bits/stdc++.h>
// #include<ext/pb_ds/assoc_container.hpp>
// #include<ext/pb_ds/tree_policy.hpp>
// #include<ext/pb_ds/tag_and_trait.hpp>
// using namespace __gnu_pbds;
// #include<boost/multiprecision/cpp_int.hpp>
// namespace multiprecisioninteger = boost::multiprecision;
// using cint=multiprecisioninteger::cpp_int;
using namespace std;
using ll=long long;
using datas=pair<ll,ll>;
using ddatas=pair<long double,long double>;
using tdata=pair<ll,datas>;
using vec=vector<ll>;
using mat=vector<vec>;
using pvec=vector<datas>;
using pmat=vector<pvec>;
// using llset=tree<ll,null_type,less<ll>,rb_tree_tag,tree_order_statistics_node_update>;
#define For(i,a,b) for(i=a;i<(ll)b;++i)
#define bFor(i,b,a) for(i=b,--i;i>=(ll)a;--i)
#define rep(i,N) For(i,0,N)
#define rep1(i,N) For(i,1,N)
#define brep(i,N) bFor(i,N,0)
#define brep1(i,N) bFor(i,N,1)
#define all(v) (v).begin(),(v).end()
#define allr(v) (v).rbegin(),(v).rend()
#define vsort(v) sort(all(v))
#define vrsort(v) sort(allr(v))
#define uniq(v) vsort(v);(v).erase(unique(all(v)),(v).end())
#define endl "\n"
#define popcount __builtin_popcountll
#define eb emplace_back
#define print(x) cout<<x<<endl
#define printyes print("Yes")
#define printno print("No")
#define printYES print("YES")
#define printNO print("NO")
#define output(v) do{bool f=0;for(auto outi:v){cout<<(f?" ":"")<<outi;f=1;}cout<<endl;}while(0)
#define matoutput(v) do{for(auto outimat:v)output(outimat);}while(0)
constexpr ll mod=1000000007;
// constexpr ll mod=998244353;
constexpr ll inf=1LL<<60;
constexpr long double eps=1e-9;
const long double PI=acosl(-1);
template<class T,class E> ostream& operator<<(ostream& os,const pair<T,E>& p){return os<<"("<<p.first<<","<<p.second<<")";}
template<class T> ostream& operator<<(ostream& os,const vector<T>& v){
  os<<"{";bool f=false;
  for(auto& x:v){if(f)os<<",";os<<x;f=true;}
  os<<"}";
  return os;
}
template<class T> ostream& operator<<(ostream& os,const set<T>& v){
  os<<"{";bool f=false;
  for(auto& x:v){if(f)os<<",";os<<x;f=true;}
  os<<"}";
  return os;
}
template<class T,class E> ostream& operator<<(ostream& os,const map<T,E>& v){
  os<<"{";bool f=false;
  for(auto& x:v){if(f)os<<",";os<<x;f=true;}
  os<<"}";
  return os;
}
template<class T> inline bool chmax(T& a,T b){bool x=a<b;if(x)a=b;return x;}
template<class T> inline bool chmin(T& a,T b){bool x=a>b;if(x)a=b;return x;}
#ifdef DEBUG
void debugg(){cout<<endl;}
template<class T,class... Args>void debugg(const T& x,const Args&... args){cout<<" "<<x;debugg(args...);}
#define debug(...) cout<<__LINE__<<" ["<<#__VA_ARGS__<<"]:",debugg(__VA_ARGS__)
#else
#define debug(...) (void(0))
#endif

void startupcpp(){
  cin.tie(0);
  ios::sync_with_stdio(false);
  cout<<fixed<<setprecision(15);
}

ll modinv(ll a,ll m=mod) {
  ll b=m,u=1,v=0,t;
  while(b){
    t=a/b;
    a-=t*b; swap(a,b);
    u-=t*v; swap(u,v);
  }
  return (u+m)%m;
}

ll moddevide(ll a,ll b){return (a*modinv(b))%mod;}

vec modncrlistp,modncrlistm;

ll modncr(ll n,ll r){
  if(n<r)return 0;
  ll i,size=modncrlistp.size();
  if(size<=n){
    modncrlistp.resize(n+1);
    modncrlistm.resize(n+1);
    if(!size){
      modncrlistp[0]=modncrlistm[0]=1;
      size++;
    }
    For(i,size,n+1)modncrlistp[i]=modncrlistp[i-1]*i%mod;
    modncrlistm[n]=modinv(modncrlistp[n]);
    for(i=n;i>size;--i)modncrlistm[i-1]=modncrlistm[i]*i%mod;
  }
  return modncrlistp[n]*modncrlistm[r]%mod*modncrlistm[n-r]%mod;
}

ll modpow(ll a,ll n,ll m=mod){
  if(n<0)return 0;
  ll res=1;
  while(n>0){
    if(n&1)res=res*a%m;
    a=a*a%m;
    n>>=1;
  }
  return res;
}

ll gcd(ll a,ll b){if(!b)return abs(a);return (a%b==0)?abs(b):gcd(b,a%b);}
ll lcm(ll a,ll b){return a/gcd(a,b)*b;}
vector<ll> dijkstra(pmat& g,ll first){
  priority_queue<datas,pvec,greater<datas>> que;
  que.emplace(0,first);
  vector<ll> dist(g.size(),inf);
  while(!que.empty()){
    datas x=que.top();que.pop();
    if(!chmin(dist[x.second],x.first))continue;
    for(auto next:g[x.second]){
      if(dist[next.second]<inf)continue;
      next.first+=x.first;
      que.emplace(next);
    }
  }
  return dist;
}
struct countingprime{
public:
  countingprime(long long N):N(N),N2(sqrtl(N)),N3(cbrtl(N)),N6(sqrtl(N3)),valsize(0),primesize(0){
    assert(N>0);
    solve();
  }
  ~countingprime(){delete[] pi;}
  //return π(N/k)
  long long calc(int k=1){
    assert(1<=k&&k<=N);
    return pi[index(N/k)];
  }
private:
  long long *val,*pi,*BIT,N,N2,N3,N6;
  int *prime;
  size_t valsize,primesize,BITsize;
  //x≦val[i]を満たす最大のiを返す(x<1,x>Nは壊れる)
  size_t index(long long x){return x<=N2?valsize-x:N/x-1;}
  //BITに最小素因数がN^{1/6}以上の合成数now(<N/∛N)を追加するクエリ
  //N^{1/6}*√N=N^{2/3}>=N/∛Nであるから列挙に必要な素数は√N以下の物のみで足りていることに注意
  void update(unsigned int id,long long now){
    if(prime[id]!=now){
      //合成数となる時
      for(size_t j=valsize-index(now);j<BITsize;j+=-j&j)++BIT[j];
    }
    //nowの倍数を追加する
    while(id<primesize&&now*prime[id]<N/N3){
      update(id,now*prime[id]);
      ++id;
    }
  }
  void solve(){
    {
      //val,pi,prime(√N以下)の初期化
      //val={floor(N/i)|1≦i≦N}を重複を取り除き降順に並び替えたもの
      //pi:π(val[i])にしたい、初期化はpi[i]=val[i]で
      for(long long now=N;now;now=N/(N/now+1))++valsize;
      val=new long long[valsize];
      pi=new long long[valsize];
      valsize=0;
      for(long long now=N;now;now=N/(N/now+1)){
        val[valsize]=pi[valsize]=now;
        valsize++;
      }
      bool *isprime=new bool[N2+1];
      memset(isprime+2,1,N2-1);
      for(int i=2;i*i<=N2;++i){
        if(isprime[i])for(int j=i*i;j<=N2;j+=i)isprime[j]=false;
      }
      for(int i=2;i<=N2;++i)if(isprime[i])++primesize;
      prime=new int[primesize];
      primesize=0;
      for(int i=2;i<=N2;++i)if(isprime[i])prime[primesize++]=i;
      delete[] isprime;
    }
    //単純にエラトステネスの篩と同じように小さい素数から篩っていく
    //dp[j]-=dp[j/prime[i]]みたいなことをすればいい(値が飛び飛びなので適宜調整する(この調整自体はO(1)でできる))
    //完全愚直でやると√N*π(√N)=O(N/log N),700msくらい(π(N)=O(N/log N)に注意)
    //BITを上手く使うとO(N^{2/3})となる
    size_t see=0;
    {
      //愚直に更新する(p≦N^{1/6})
      //π(N^{1/6})*2√N=O(N^{2/3}/log N)
      while(see<primesize&&prime[see]<=N6){
        for(size_t i=0;prime[see]<=val[i]/prime[see];++i){
          pi[i]-=pi[index(val[i]/prime[see])]-see-1;
        }
        ++see;
      }
    }
    {
      //BITを使う(N^{1/6}<p<∛N)
      BITsize=valsize-N3+1;
      BIT=new long long[BITsize];
      memset(BIT,0,sizeof(long long)*BITsize);
      while(see<primesize&&prime[see]<N3){
        //大きい方N3個の変更クエリ(BITのsumクエリ)
        //∛N*(π(∛N)-π(N^{1/6})=O(N^{2/3}/log N)回BITでクエリを回すので
        //O(N^{2/3})
        for(size_t i=0;(int)i<N3&&prime[see]<=val[i]/prime[see];++i){
          size_t j=index(val[i]/prime[see]);
          long long x=pi[j]-see-1;
          if((int)j>=N3)for(j=valsize-j;j>0;j-=-j&j)x-=BIT[j];
          pi[i]-=x;
        }
        //小さい方valsize-N3個の変更クエリ(BITのaddクエリ)
        //addする対称はN/N3以下であって最小素因数がN^{1/6}より大きい合成数の個数に等しい
        //これはO(N^{2/3})個BITで回すのでO(N^{2/3}log N)(実はlogが落ちているらしいが良く分からないし#logは定数 なのでヨシ！)
        update(see,prime[see]);
        ++see;
      }
      //BITに貯め込んだ分の精算
      for(size_t i=1;i<BITsize;++i){
        BIT[i]+=BIT[i-(-i&i)];
        pi[valsize-i]-=BIT[i];
      }
      delete[] BIT;
    }
    {
      //愚直に更新する(∛N≦p≦√N)
      //実はO(N^{2/3}/log N)
      //(∵)Σ(∛N≦p≦√N,p:prime)#{i|p≦val[i]/p}=Σ(∛N≦p≦√N,p:prime)#{i|p^2≦val[i]}
      //     ∛N≦pより,p^2>val[∛N+1]から        =Σ(∛N≦p≦√N,p:prime)Σ(0≦i≦∛N)(int)(p^2<=val[i])
      //                                       =Σ(∛N≦p≦√N,p:prime)Σ(1≦i≦∛N+1)(int)(p^2<=floor(N/i))
      //                                       =Σ(1≦i≦∛N+1)Σ(∛N≦p≦√N,p:prime)(int)(p^2<=floor(N/i))
      //                                       =Σ(1≦i≦∛N+1)Σ(∛N≦p≦√N,p:prime)(int)(p<=floor(√(N/i)))
      //                                       ≦Σ(1≦i≦∛N+1)π(√(N/i))
      //                                       =O((√N/log N)Σ(1≦i≦∛N+1)1/√i)
      // Σ(1≦i≦N)1/√i~∫_1^N 1/√xdx~2√Nより   =O((√N/log N)(N^{1/6}))
      //                                       =O(N^{2/3}/log N)
      while(see<primesize){
        for(size_t i=0;prime[see]<=val[i]/prime[see];++i){
          pi[i]-=pi[index(val[i]/prime[see])]-see-1;
        }
        ++see;
      }
    }
    //1を取り除く
    for(size_t i=0;i<valsize;++i)--pi[i];
    delete[] val;
  }
};
ll N,M,K,H,W,A,B,C,D;
string s,t;
ll ans;
int main(){
  startupcpp();
  // int codeforces;cin>>codeforces;while(codeforces--){
  ll i,j=0;
  long double t;
  cin>>t;
  // print(countingprime(1103).calc()*116);
  // print(countingprime(304789).calc());
  // print(9*2*49);
  // print(gcd(21460,882)*gcd(21460,882));
  print(-t*0.0009066182916352140081656730925539625953708033240231997190256903*16.42306606612881346105571685178576251774867711446366948869512915);
}