%I #16 Jun 07 2020 15:23:23
%S 1,1,2,3,12,5,20,105,280,63,2520,385,27720,6435,8008,45045,720720,
%T 85085,4084080,2909907,3695120,1322685,5173168,37182145,118982864,
%U 128707425,2974571600,717084225,80313433200,215656441,2329089562800
%N Denominator of Sum_{1<=k<=n, gcd(k,n)=1} 1/k.
%H Seiichi Manyama, <a href="/A069220/b069220.txt">Table of n, a(n) for n = 1..2310</a>
%F G.f. A(x) (for fractions) satisfies: A(x) = -log(1 - x)/(1 - x) - Sum_{k>=2} A(x^k)/k. - _Ilya Gutkovskiy_, Mar 31 2020
%t Table[s=0; Do[If[GCD[i, n]==1, s=s+1/i], {i, n}]; Denominator[s], {n, 1, 35}]
%t Table[Denominator[Total[1/Select[Range[n],GCD[n,#]==1&]]],{n,40}] (* _Harvey P. Dale_, Jun 07 2020 *)
%o (PARI) for(n=1,40,print1(denominator(sum(k=1,n,if(gcd(k,n)==1,1/k))),","))
%Y Cf. A017666, A002805.
%Y Cf. A093600 (numerator of this sum).
%Y Also denominators of row sums of A111879/A111880. For the numerators see A111881.
%K nonn,frac
%O 1,3
%A Sharon Sela (sharonsela(AT)hotmail.com), Apr 12 2002
%E More terms from _Jason Earls_, Apr 14 2002