A055774 - OEIS

%I #45 Mar 06 2018 11:48:42

%S 1,4,54,768,75000,233280,592950960,5284823040,1735643790720,

%T 5670000000000,1035338990313196800,17163493362892800,

%U 145077660657859734604800,9653278129532887449600

%N Least common multiple of n! and n^n.

%H Vincenzo Librandi, <a href="/A055774/b055774.txt">Table of n, a(n) for n = 1..200</a>

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

%p A055774:=n->lcm(n!,n^n): seq(A055774(n), n=1..15); # _Wesley Ivan Hurt_, Jul 07 2014

%t Table[LCM[n!, n^n], {n, 15}] (* _Wesley Ivan Hurt_, Jul 07 2014 *)

%o (GAP) List([1..200], n->Lcm(Factorial(n),n^n)); # _Muniru A Asiru_, Feb 04 2018

%o (PARI) a(n) = lcm(n!, n^n); \\ _Michel Marcus_, Feb 06 2018

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

%K nonn

%O 1,2

%A _Henry Bottomley_, Jul 12 2000

%E More terms from _James A. Sellers_, Jul 13 2000