login
Numerator of a remarkable product.
2

%I #14 Feb 08 2025 09:00:43

%S 1,2,3,4,5,6,8,16,60,440,6028,144672,5726600,355049200,33019575600,

%T 4442233570720,838471586473400,216325669310137200,

%U 74596301633778977800,33717528338468097965600,19638774380740743660063720

%N Numerator of a remarkable product.

%C The first nonintegral term occurs at n=76.

%H Olivier Gérard, <a href="/A133706/b133706.txt">Table of n, a(n) for n = 1..100</a>

%F a(n) = numerator(Product_{i=1..n-1} (394 - 225*i + 85*i^2 - 15*i^3 + i^4)/120).

%t a[n_]:= Numerator[Product[(394-225 i+85 i^2 -15 i^3+i^4)/120,{i,n-1 }]]; Array[a,21] (* _Stefano Spezia_, Feb 08 2025 *)

%Y Sequence of denominators is in A133707.

%K nonn,frac,changed

%O 1,2

%A _Olivier Gérard_, Sep 20, 2007