OFFSET
1,1
COMMENTS
The old entry with this sequence number was a duplicate of A090331.
FORMULA
a(n) = 6*A082909(n). - Michel Marcus, May 26 2014
MATHEMATICA
Table[6 Sum[Mod[d, 3], {d, Divisors[n]}], {n, 50}] (* Wesley Ivan Hurt, May 28 2014 *)
PROG
(PARI) a(n) = 6*sumdiv(n, d, d % 3); \\ Michel Marcus, May 26 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 02 2008
STATUS
approved