OFFSET
0,7
MATHEMATICA
Table[Total[Mod[n, Select[Range[n-1], CompositeQ]]], {n, 0, 80}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 01 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Dec 07 2013
STATUS
approved