A120654 - OEIS

%I #12 Sep 14 2024 02:24:16

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

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