A009278 a(n) = lcm(d(n), sigma(n)).

1, 6, 4, 21, 6, 12, 8, 60, 39, 36, 12, 84, 14, 24, 24, 155, 18, 78, 20, 42, 32, 36, 24, 120, 93, 84, 40, 168, 30, 72, 32, 126, 48, 108, 48, 819, 38, 60, 56, 360, 42, 96, 44, 84, 78, 72, 48, 620, 57, 186, 72, 294, 54, 120, 72, 120, 80, 180, 60, 168, 62, 96, 312, 889, 84, 144, 68

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Mathematica

Table[LCM[Length[Divisors[n]], DivisorSigma[1, n]], {n, 1, 100}] (* Stefan Steinerberger, Apr 13 2006 *)

Prog

(PARI) A009278(n) = lcm(numdiv(n), sigma(n)); \\ Antti Karttunen, Sep 10 2017

Crossrefs

Cf. A000005, A000203, A009205, A009286.

Sequence in context: A375673 A212891 A107983 * A213573 A321417 A185734

Adjacent sequences: A009275 A009276 A009277 * A009279 A009280 A009281

Keyword

nonn

Author

David W. Wilson

Status

approved