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,1

Comments

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

Links

Table of n, a(n) for n=1..73.

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

Cf. A004016, A082909.

Sequence in context: A355787 A077022 A074923 * A264028 A078741 A248461

Adjacent sequences: A093058 A093059 A093060 * A093062 A093063 A093064

Keyword

nonn,easy

Author

N. J. A. Sloane, Nov 02 2008

Status

approved