A093061 6 * Sum_{d|n} (d mod 3).

6, 18, 6, 24, 18, 18, 12, 36, 6, 36, 18, 24, 12, 36, 18, 42, 18, 18, 12, 54, 12, 36, 18, 36, 24, 36, 6, 48, 18, 36, 12, 54, 18, 36, 36, 24, 12, 36, 12, 72, 18, 36, 12, 54, 18, 36, 18, 42, 18, 54, 18, 48, 18, 18, 36, 72, 12, 36, 18, 54, 12, 36, 12, 60, 36, 36, 12, 54, 18, 72, 18, 36, 12

Offset: 1

Author

N. J. A. Sloane, Nov 02 2008

Keywords

• nonn
• easy

Comments

The old entry with this sequence number was a duplicate of A090331.

Crossrefs

Cf. A004016, A082909.

Programs

Mathematica

Table[6 Sum[Mod[d, 3], {d, Divisors[n]}], {n, 50}] (* Wesley Ivan Hurt, May 28 2014 *)

PARI

a(n) = 6*sumdiv(n, d, d % 3); \\ Michel Marcus, May 26 2014

Formula

a(n) = 6*A082909(n). - Michel Marcus, May 26 2014