%I #10 Oct 10 2019 13:46:24
%S 1,4,7,176,9,133542,103,91072,99527,131023748,7591,300996993816,88001,
%T 1403843964196,44094737,10686452707072,825533,368070779365071896502,
%U 2895701,8653175044141052500,81659533540907,3080940707518158404
%N a(n) = numerator of the sum of reciprocals of the terms in n-th row of triangle A077581.
%e Row 4 of triangle A077581 is (1,3,5,7).
%e So a(4) is the numerator of 1/1 +1/3 +1/5 + 1/7 = 176/105.
%t row[n_] := Take[Select[Range[n^2], GCD[ #, n] == 1 &], n]; Table[Numerator[Plus @@ (1/# &) /@ row[n]], {n, 23}] (* _Ray Chandler_, Dec 29 2006 *)
%Y Cf. A077581, A126578.
%K frac,nonn
%O 1,2
%A _Leroy Quet_, Dec 28 2006
%E Extended by _Ray Chandler_, Dec 29 2006
|