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