|
%I #8 Aug 26 2019 16:34:11
%S 2,2,4,14,6,10,12,12,7,15,56,90,9,9,51,21,105,23,5,5,22,24,72,66,6,6,
%T 132,20,36,4,4,4,228,396,510,48,3,3,42,2340,48,880,14,14,2088,336,
%U 2604,2040,10,10,52,4290,2142,4256,60,60,385,705,180,360,33,33,8004,3995,702
%N Row 6 of array in A105272.
%t k = 6;
%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 6,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(15) by _R. J. Mathar_, Aug 12 2008
|
