|
| |
|
|
A083112
|
|
Product of terms in row n of A083110.
|
|
3
| |
|
|
1, 3, 8, 135, 144, 85085, 5760, 2297295, 3449600, 5316400089, 43545600, 30919742228375, 6706022400, 1726541615638125, 1707444076642304, 204279350669769375, 376610217984000, 232876694951587194633125, 128047474114560000, 23826124317017265875590959, 669489320248554291200000, 4543516354864205968588828125
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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]) } \\ [From Max Alekseyev]
|
|
|
CROSSREFS
| Cf. A083110, A083111, A083113.
Sequence in context: A192629 A036504 A132491 * A053605 A076147 A132563
Adjacent sequences: A083109 A083110 A083111 * A083113 A083114 A083115
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 22 2003
|
|
|
EXTENSIONS
| More terms from Chris Deugau (deugaucj(AT)uvic.ca), Dec 14 2005
Corrected and extended by Max Alekseyev (maxale(AT)gmail.com), Jun 18 2011
|
| |
|
|
