integer*8::N
  read *, N
  print '(i0)', (N/3+N/5)*2
end program