Fonction mystère

Publié le 04/06/13

Que fait la fonction Mathematica suivante?

mystere[n_,d_] := -Total[(-1)^Length[#] (Floor[n/#] &)@(LCM @@ #) & /@ Rest@Subsets@d]