del[m_, n_] := Boole[Mod[n, m] == 0];
If[n < 4, n,
n + Binomial[n, 4] + del[2, n] (-5 n^3 + 45 n^2 - 70 n + 24)/24 -
del[4, n] (3 n/2) + del[6, n] (-45 n^2 + 262 n)/6 +
del[12, n]*42 n + del[18, n]*60 n + del[24, n]*35 n -
del[30, n]*38 n - del[42, n]*82 n - del[60, n]*330 n -
del[84, n]*144 n - del[90, n]*96 n - del[120, n]*144 n -
del[210, n]*96 n];
If[n < 3,
0, (n^4 - 6 n^3 + 23 n^2 - 42 n + 24)/24 +
del[2, n] (-5 n^3 + 42 n^2 - 40 n - 48)/48 - del[4, n] (3 n/4) +
del[6, n] (-53 n^2 + 310 n)/12 + del[12, n] (49 n/2) +
del[18, n]*32 n + del[24, n]*19 n - del[30, n]*36 n -
del[42, n]*50 n - del[60, n]*190 n - del[84, n]*78 n -
del[90, n]*48 n - del[120, n]*78 n - del[210, n]*48 n];
