login
A121514
Row 7 of array in A105272.
1
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
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
KEYWORD
nonn
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(16) by R. J. Mathar, Aug 12 2008
STATUS
approved