use strict;
use warnings;
use bigint;

my $ans = <>;
print 2*(int($ans/3) + int($ans/5));