OFFSET
1,2
COMMENTS
The old entry with this sequence number was a duplicate of A070940.
MATHEMATICA
Table[Total[Mod[Divisors[n], 3]], {n, 110}] (* Harvey P. Dale, Jan 01 2019 *)
Table[DivisorSum[n, Mod[#, 3]&], {n, 110}] (* Harvey P. Dale, Jan 09 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 02 2008
STATUS
approved