A181857 a(n) = lcm(n^2, n!).

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

Author

Peter Luschny, Nov 21 2010

Keywords

• nonn

Comments

If n > 4 then a(n) = n! for composite n and n * n! for prime n. - David A. Corneth, Aug 04 2015

Links

• Robert Israel, Table of n, a(n) for n = 0..411

Crossrefs

Cf. A170826, A181860, A056040, A000290, A014973.

Programs

Magma

[Lcm(n^2, Factorial(n)): n in [0..30]]; // Vincenzo Librandi, Aug 07 2015

Maple

A181857 := n -> ilcm(n^2, n!);

Mathematica

Table[LCM[n^2, n!], {n, 0, 17}] (* Michael De Vlieger, Aug 04 2015 *)

PARI

a(n)=lcm(n!,n^2) \\ Charles R Greathouse IV, Feb 01 2013

Formula

a(n) = lcm(A000290(n), A000142(n)).

a(n) = n! * A014973(n) for n >= 1. - Johannes W. Meijer, Jun 04 2016