login
Row 7 of array in A105272.
1

%I #13 Sep 14 2024 02:24:00

%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.com), May 08 2008, Aug 10 2008

%E Extended beyond a(16) by _R. J. Mathar_, Aug 12 2008