login
Product of next n numbers divided by the largest factorial divisor.
0

%I #6 Aug 26 2015 21:01:33

%S 1,1,1,1,3003,969,16445,30566,886163135,2658968130,491796152,

%T 3340843549855,9129919051926,22487406253165,17391629252325717,

%U 2248272948937235,15415916972482007401455,50848495433999570877570

%N Product of next n numbers divided by the largest factorial divisor.

%C Conjecture: a(n) > 1 for n > 4.

%e a(5) = (11*12*13*14*15)/(5!) = 3003.

%e a(6) = (16*17*18*19*20*21)/(8!) = 969.

%t Table[a := Product[i, {i, n*(n - 1)/2 + 1, n*(n + 1)/2}]; b := 1; While[ IntegerQ[a/(b + 1)! ], b++ ]; a/b!, {n, 1, 20}] (* _Stefan Steinerberger_, Mar 14 2006 *)

%K nonn

%O 1,5

%A _Amarnath Murthy_, May 17 2004

%E More terms from _Stefan Steinerberger_, Mar 14 2006