A083112 Product of terms in row n of A083110.

1, 3, 8, 135, 144, 85085, 5760, 2297295, 3449600, 5316400089, 43545600, 30919742228375, 6706022400, 1726541615638125, 1707444076642304, 204279350669769375, 376610217984000, 232876694951587194633125, 128047474114560000, 23826124317017265875590959, 669489320248554291200000, 4543516354864205968588828125

Offset

1,2

Links

Table of n, a(n) for n=1..22.

Prog

(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

Crossrefs

Cf. A083110, A083111, A083113.

Sequence in context: A036504 A227831 A132491 * A053605 A297565 A289884

Adjacent sequences: A083109 A083110 A083111 * A083113 A083114 A083115

Keyword

nonn

Author

Amarnath Murthy, Apr 22 2003

Extensions

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

Corrected and extended by Max Alekseyev, Jun 18 2011

Status

approved