|
%I #29 Sep 08 2022 08:45:54
%S 0,1,4,18,48,600,720,35280,40320,362880,3628800,439084800,479001600,
%T 80951270400,87178291200,1307674368000,20922789888000,
%U 6046686277632000,6402373705728000,2311256907767808000,2432902008176640000,51090942171709440000,1124000727777607680000
%N a(n) = lcm(n^2, n!).
%C If n > 4 then a(n) = n! for composite n and n * n! for prime n. - _David A. Corneth_, Aug 04 2015
%H Robert Israel, <a href="/A181857/b181857.txt">Table of n, a(n) for n = 0..411</a>
%F a(n) = lcm(A000290(n), A000142(n)).
%F a(n) = n! * A014973(n) for n >= 1. - _Johannes W. Meijer_, Jun 04 2016
%p A181857 := n -> ilcm(n^2, n!);
%t Table[LCM[n^2, n!], {n, 0, 17}] (* _Michael De Vlieger_, Aug 04 2015 *)
%o (PARI) a(n)=lcm(n!,n^2) \\ _Charles R Greathouse IV_, Feb 01 2013
%o (Magma) [Lcm(n^2, Factorial(n)): n in [0..30]]; // _Vincenzo Librandi_, Aug 07 2015
%Y Cf. A170826, A181860, A056040, A000290, A014973.
%K nonn
%O 0,3
%A _Peter Luschny_, Nov 21 2010
|
