login
Product of terms in row n of A083110.
3

%I #10 Jun 10 2018 04:21:26

%S 1,3,8,135,144,85085,5760,2297295,3449600,5316400089,43545600,

%T 30919742228375,6706022400,1726541615638125,1707444076642304,

%U 204279350669769375,376610217984000,232876694951587194633125,128047474114560000,23826124317017265875590959,669489320248554291200000,4543516354864205968588828125

%N Product of terms in row n of A083110.

%o (PARI) { a(n) = local(r); if(n==1,return(1)); r=vector(n); r[1]=1; for(i=2,n-1, r[i]=r[i-1]+1; while(gcd(r[i],n)>1,r[i]++); ); r[n] = lift( Mod(-1,n) / prod(i=1,n-1,r[i]) ); while( r[n]<=r[n-1], r[n]+=n; ); prod(i=1,n,r[i]) } \\ _Max Alekseyev_, Jun 18 2011

%Y Cf. A083110, A083111, A083113.

%K nonn

%O 1,2

%A _Amarnath Murthy_, Apr 22 2003

%E More terms from Chris Deugau (deugaucj(AT)uvic.ca), Dec 14 2005

%E Corrected and extended by _Max Alekseyev_, Jun 18 2011