# https://atcoder.jp/contests/abc162/tasks/abc162_b
# read nstr
# n=$((nstr))
# ans=$((0))
# for ((i=1; i<=$n; i++)) ; do
#   if [ $((i % 3)) -ne 0 -a $((i % 5)) -ne 0 ] ; then
#     ans=$((ans + i))
#   fi
# done
# echo $ans

read nstr
n=$((nstr))
ans=$((0))
for ((i=1; i<=$n; i++)) ; do
  if [ $((i % 3)) -ne 0 ] && [ $((i % 5)) -ne 0 ] ; then
    ans=$((ans + i))
  fi
done
echo $ans
