%I #9 Aug 26 2019 16:28:28
%S 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,
%T 40,33,182,6,6,66,126,24,104,84,6,6,84,260,24,44,4,4,4,276,660,21,390,
%U 57,3,3,102,72,1680,1232,6006,8,8,6552,1440,5698,40,1380,70,70,54,6048
%N Row 7 of array in A105272.
%t k = 7;
%t Table[fp = {};
%t For[col = k, col > 0, col,
%t For[row = 0, col + row*k <= n, row++,
%t AppendTo[fp, col + row*k]]];
%t LCM @@ Length /@ First[FindPermutation[Range[n], fp]], {n, k,
%t 76}] (* _Robert Price_, Aug 26 2019 *)
%K nonn
%O 7,1
%A _N. J. A. Sloane_, Aug 10 2008, based on email from Samuel Minter (abulsme(AT)abulsme.com0, May 08 2008, Aug 10 2008
%E Extended beyond a(16) by _R. J. Mathar_, Aug 12 2008
