login
A181857
a(n) = lcm(n^2, n!).
2
0, 1, 4, 18, 48, 600, 720, 35280, 40320, 362880, 3628800, 439084800, 479001600, 80951270400, 87178291200, 1307674368000, 20922789888000, 6046686277632000, 6402373705728000, 2311256907767808000, 2432902008176640000, 51090942171709440000, 1124000727777607680000
OFFSET
0,3
COMMENTS
If n > 4 then a(n) = n! for composite n and n * n! for prime n. - David A. Corneth, Aug 04 2015
LINKS
FORMULA
a(n) = lcm(A000290(n), A000142(n)).
a(n) = n! * A014973(n) for n >= 1. - Johannes W. Meijer, Jun 04 2016
MAPLE
A181857 := n -> ilcm(n^2, n!);
MATHEMATICA
Table[LCM[n^2, n!], {n, 0, 17}] (* Michael De Vlieger, Aug 04 2015 *)
PROG
(PARI) a(n)=lcm(n!, n^2) \\ Charles R Greathouse IV, Feb 01 2013
(Magma) [Lcm(n^2, Factorial(n)): n in [0..30]]; // Vincenzo Librandi, Aug 07 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 21 2010
STATUS
approved