A055774 Least common multiple of n! and n^n.

1, 4, 54, 768, 75000, 233280, 592950960, 5284823040, 1735643790720, 5670000000000, 1035338990313196800, 17163493362892800, 145077660657859734604800, 9653278129532887449600

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..200

Formula

a(n) = lcm(A000312(n), A000142(n)) = A000312(n)*A000142(n)/A051696(n).

Maple

A055774:=n->lcm(n!, n^n): seq(A055774(n), n=1..15); # Wesley Ivan Hurt, Jul 07 2014

Mathematica

Table[LCM[n!, n^n], {n, 15}] (* Wesley Ivan Hurt, Jul 07 2014 *)

Prog

(GAP) List([1..200], n->Lcm(Factorial(n), n^n)); # Muniru A Asiru, Feb 04 2018
(PARI) a(n) = lcm(n!, n^n); \\ Michel Marcus, Feb 06 2018

Crossrefs

Cf. A000142 (n!), A000312 (n^n), A051696 (gcd).

Sequence in context: A241126 A089205 A294041 * A071248 A221611 A303048

Adjacent sequences: A055771 A055772 A055773 * A055775 A055776 A055777

Keyword

nonn

Author

Henry Bottomley, Jul 12 2000

Extensions

More terms from James A. Sellers, Jul 13 2000

Status

approved