A139550 a(n) = lcm(1..floor(n/2)).

1, 1, 1, 1, 2, 2, 6, 6, 12, 12, 60, 60, 60, 60, 420, 420, 840, 840, 2520, 2520, 2520, 2520, 27720, 27720, 27720, 27720, 360360, 360360, 360360, 360360, 360360, 360360, 720720, 720720, 12252240, 12252240, 12252240, 12252240, 232792560, 232792560

Offset: 0

Author

Mats Granvik, Apr 27 2008

Keywords

• nonn

Comments

Row products of A139549.

Crossrefs

Cf. A139549, A003418, A366368, A366369.

Programs

Maple

LCM := proc (n) local i; ilcm(seq(i,i=1..n)) end; A139550 := n -> LCM(n/2); seq(A139550(n),n=0..40); # Peter Luschny, Jun 09 2011

Mathematica

Join[{1,1},Table[LCM@@Range[Floor[n/2]],{n,2,40}]] (* Harvey P. Dale, Jan 12 2024 *)

Formula

a(n) = A003418(floor(n/2)) = A366368(n) / A003418(n) = A003418(n) / A366369(n). - Max Alekseyev, Oct 08 2023

Extensions

Offset corrected by Peter Luschny, Jun 09 2011