|
Search: id:A093600
|
|
|
| A093600 |
|
Numerator of Sum_{1<=k<=n, GCD(k,n)=1} 1/k. |
|
+0
3
|
|
| 1, 1, 3, 4, 25, 6, 49, 176, 621, 100, 7381, 552, 86021, 11662, 18075, 91072, 2436559, 133542, 14274301, 5431600, 9484587, 2764366, 19093197, 61931424, 399698125, 281538452, 8770427199, 1513702904, 315404588903, 323507400, 9304682830147
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
The divisibility properties of this sequence are given by Leudesdorf's theorem.
|
|
REFERENCES
|
Emre Alkan, Variations on Wolstenholme's Theorem, Amer. Math. Monthly, Vol. 101, No. 10 (Dec. 1994), 1001-1004.
G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers, 4th ed., Oxford Univ. Press, 1971, page 100.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Leudesdorf Theorem
|
|
MATHEMATICA
|
Table[s=0; Do[If[GCD[i, n]==1, s=s+1/i], {i, n}]; Numerator[s], {n, 1, 35}]
|
|
CROSSREFS
|
Cf. A069220 (denominator of this sum), A001008 (numerator of the n-th harmonic number).
Sequence in context: A048091 A065900 A065809 this_sequence A128778 A009391 A055348
Adjacent sequences: A093597 A093598 A093599 this_sequence A093601 A093602 A093603
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Apr 03 2004
|
|
|
Search completed in 0.002 seconds
|
