A139554 a(n) = lcm(1..floor(n/4)).

1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 6, 6, 6, 6, 12, 12, 12, 12, 60, 60, 60, 60, 60, 60, 60, 60, 420, 420, 420, 420, 840, 840, 840, 840, 2520, 2520, 2520, 2520, 2520, 2520, 2520, 2520, 27720, 27720, 27720, 27720, 27720, 27720, 27720, 27720, 360360, 360360

Offset: 0

Author

Mats Granvik, Apr 27 2008

Keywords

• nonn

Comments

Row products of A139553.

Crossrefs

Cf. A139553, A003418.

Programs

Mathematica

Join[{1,1,1,1},Table[LCM@@Range[Floor[n/4]],{n,4,60}]] (* Harvey P. Dale, May 24 2012 *)