#include "bits/stdc++.h"
using namespace std;
typedef long long lli;
typedef long double ld;
typedef vector<lli> vi;
typedef pair<lli,lli> ii;
#define endl '\n'
#define fore(i,a,b) for(lli i = a; i < b; i++)
#define all(s) begin(s), end(s)
#define sz(s) lli(s.size())
#define f first
#define s second
#define pb push_back
#define _ ios::sync_with_stdio(0);cin.tie(0);cout.tie(0);
int const MAXN = 1e7 + 5;
int N[MAXN +5];
void f(lli x){
if(N[N[x]] > MAXN) return;
N[N[x]] = 3*x;
if(N[N[x]- 1] == 0) N[N[x]- 1] = N[N[x]] - 1;
if(N[N[x]- 2] == 0) N[N[x]- 2] = N[N[x]] - 2;
}
int main(){ _
int n;
cin >> n;
N[1] = 2;
N[2] = 3;
N[3] = 6;
fore(i,3,n){
if(N[i] != 0) f(i);
}
cout << N[n]<< endl;
}
I2luY2x1ZGUgImJpdHMvc3RkYysrLmgiCgp1c2luZyBuYW1lc3BhY2Ugc3RkOwoKdHlwZWRlZiBsb25nIGxvbmcgbGxpOwp0eXBlZGVmIGxvbmcgZG91YmxlIGxkOwp0eXBlZGVmIHZlY3RvcjxsbGk+IHZpOwp0eXBlZGVmIHBhaXI8bGxpLGxsaT4gaWk7CgojZGVmaW5lIGVuZGwgJ1xuJwojZGVmaW5lIGZvcmUoaSxhLGIpIGZvcihsbGkgaSA9IGE7IGkgPCBiOyBpKyspCiNkZWZpbmUgYWxsKHMpIGJlZ2luKHMpLCBlbmQocykKI2RlZmluZSBzeihzKSBsbGkocy5zaXplKCkpCiNkZWZpbmUgZiBmaXJzdAojZGVmaW5lIHMgc2Vjb25kCiNkZWZpbmUgcGIgcHVzaF9iYWNrCiNkZWZpbmUgXyBpb3M6OnN5bmNfd2l0aF9zdGRpbygwKTtjaW4udGllKDApO2NvdXQudGllKDApOwoKCmludCBjb25zdCBNQVhOID0gMWU3ICsgNTsKaW50IE5bTUFYTiArNV07Cgp2b2lkIGYobGxpIHgpewoKICAgIGlmKE5bTlt4XV0gPiBNQVhOKSByZXR1cm47CiAgICBOW05beF1dID0gMyp4OwogICAgaWYoTltOW3hdLSAxXSA9PSAwKSAgTltOW3hdLSAxXSA9IE5bTlt4XV0gLSAxOwogICAgaWYoTltOW3hdLSAyXSA9PSAwKSAgTltOW3hdLSAyXSA9IE5bTlt4XV0gLSAyOwp9CgppbnQgbWFpbigpeyBfIAoJaW50IG47CiAgICBjaW4gPj4gbjsKCiAgICBOWzFdID0gMjsKICAgIE5bMl0gPSAzOwogICAgTlszXSA9IDY7CiAgICAKICAgIGZvcmUoaSwzLG4pewogICAgICAgIGlmKE5baV0gIT0gMCkgZihpKTsKICAgIH0KCiAgICBjb3V0IDw8IE5bbl08PCBlbmRsOwogICAKCiAgICAKfQoKCgo=