A009242 a(n) = lcm(n, sigma(n)).

1, 6, 12, 28, 30, 12, 56, 120, 117, 90, 132, 84, 182, 168, 120, 496, 306, 234, 380, 420, 672, 396, 552, 120, 775, 546, 1080, 56, 870, 360, 992, 2016, 528, 918, 1680, 3276, 1406, 1140, 2184, 360, 1722, 672, 1892, 924, 1170, 1656, 2256, 1488, 2793, 4650, 1224, 2548

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = n*A017665(n). - Enrique Pérez Herrero, Aug 25 2011

a(n) = A064987(n)/A009194(n). - Amiram Eldar, Mar 27 2024

Mathematica

A009242[n_]:=LCM[DivisorSigma[1, n], n]; Array[A009242, 100] (* Enrique Pérez Herrero, Aug 25 2011 *)

Prog

(PARI) a(n) = lcm(n, sigma(n)); \\ Amiram Eldar, Mar 27 2024

Crossrefs

Cf. A009194, A017665, A064987.

Sequence in context: A057029 A036833 A249670 * A032647 A327165 A338520

Adjacent sequences: A009239 A009240 A009241 * A009243 A009244 A009245

Keyword

nonn,easy

Author

David W. Wilson

Status

approved