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,5

Comments

Row products of A139549.

Links

Table of n, a(n) for n=0..39.

Formula

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

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 *)

Crossrefs

Cf. A139549, A003418, A366368, A366369.

Sequence in context: A051548 A110660 A332759 * A337735 A060549 A228315

Adjacent sequences: A139547 A139548 A139549 * A139551 A139552 A139553

Keyword

nonn

Author

Mats Granvik, Apr 27 2008

Extensions

Offset corrected by Peter Luschny, Jun 09 2011

Status

approved