A121514 Row 7 of array in A105272.

2, 2, 4, 14, 6, 12, 30, 4, 4, 20, 15, 70, 30, 18, 10, 10, 48, 72, 24, 25, 133, 7, 7, 42, 240, 40, 33, 182, 6, 6, 66, 126, 24, 104, 84, 6, 6, 84, 260, 24, 44, 4, 4, 4, 276, 660, 21, 390, 57, 3, 3, 102, 72, 1680, 1232, 6006, 8, 8, 6552, 1440, 5698, 40, 1380, 70, 70, 54, 6048

Offset

7,1

Links

Table of n, a(n) for n=7..73.

Mathematica

k = 7;
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: A268049 A267911 A120654 * A121526 A339282 A153956

Adjacent sequences: A121511 A121512 A121513 * A121515 A121516 A121517

Keyword

nonn

Author

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

Extensions

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

Status

approved