A120363 - OEIS

%I #13 Sep 14 2024 02:25:49

%S 2,2,4,7,15,5,5,12,40,45,4,4,12,8,16,6,6,16,28,4,4,4,60,21,39,3,3,66,

%T 180,720,6,6,418,34,357,20,20,42,72,350,22,22,152,47,407,16,16,858,

%U 700,725,6,6,780,342,156,30,30,2310,96,114,10,10,630,385,220,5,5,38760

%N Row 5 of array in A105272.

%t k = 5;

%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 5,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(14) by _R. J. Mathar_, Aug 12 2008