|
Search: id:A069220
|
|
|
| A069220 |
|
Denominator of Sum_{1<=k<=n, GCD(k,n)=1} 1/k. |
|
+0
6
|
|
| 1, 1, 2, 3, 12, 5, 20, 105, 280, 63, 2520, 385, 27720, 6435, 8008, 45045, 720720, 85085, 4084080, 2909907, 3695120, 1322685, 5173168, 37182145, 118982864, 128707425, 2974571600, 717084225, 80313433200, 215656441, 2329089562800
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
Table[s=0; Do[If[GCD[i, n]==1, s=s+1/i], {i, n}]; Denominator[s], {n, 1, 35}]
|
|
PROGRAM
|
(PARI) for(n=1, 40, print1(denominator(sum(k=1, n, if(gcd(k, n)==1, 1/k))), ", "))
|
|
CROSSREFS
|
Cf. A017666, A002805.
Cf. A093600 (numerator of this sum).
Also denominators of row sums of A111879/A111880. For the numerators see A111881.
Sequence in context: A081369 A147967 A120487 this_sequence A062957 A124444 A038610
Adjacent sequences: A069217 A069218 A069219 this_sequence A069221 A069222 A069223
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
Sharon Sela (sharonsela(AT)hotmail.com), Apr 12 2002
|
|
EXTENSIONS
|
More terms from Jason Earls (zevi_35711(AT)yahoo.com), Apr 14 2002
|
|
|
Search completed in 0.002 seconds
|
