A120363 Row 5 of array in A105272.

2, 2, 4, 7, 15, 5, 5, 12, 40, 45, 4, 4, 12, 8, 16, 6, 6, 16, 28, 4, 4, 4, 60, 21, 39, 3, 3, 66, 180, 720, 6, 6, 418, 34, 357, 20, 20, 42, 72, 350, 22, 22, 152, 47, 407, 16, 16, 858, 700, 725, 6, 6, 780, 342, 156, 30, 30, 2310, 96, 114, 10, 10, 630, 385, 220, 5, 5, 38760

Offset

5,1

Links

Table of n, a(n) for n=5..72.

Mathematica

k = 5;
Table[fp = {};
 For[col = k, col > 0, col--,
  For[row = 0, col + row*k <= n, row++,
   AppendTo[fp, col + row*k]]];
 LCM @@ Length /@ First[FindPermutation[Range[n], fp]], {n, k,
76}] (* Robert Price, Aug 26 2019 *)

Crossrefs

Sequence in context: A169973 A300353 A049868 * A118988 A049904 A049906

Adjacent sequences: A120360 A120361 A120362 * A120364 A120365 A120366

Keyword

nonn,changed

Author

N. J. A. Sloane, Aug 10 2008, based on email from Samuel Minter (abulsme(AT)abulsme.com), May 08 2008, Aug 10 2008

Extensions

Extended beyond a(14) by R. J. Mathar, Aug 12 2008

Status

approved