|
%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
|
