%I #2 Mar 30 2012 17:22:26
%S 3,11,31,167,59,433,971,9859,10111,123821,126131,1667423,1744643,
%T 1768667,3942739,67747283,24170681,475579259,487218887,490914007,
%U 508549807,11774243081,4494873917,23545215361,23888435161,674733465347
%N Primes in the numerator of partial sums of A076476.
%C Note that the primes are not necessarily increasing.
%t nMax = 100; lst = {1}; numer = {1}; s = 1; Do[k = 1; While[GCD[k, n] > 1 || ! PrimeQ[Numerator[s + k/n]], k++ ]; s = s + k/n; AppendTo[lst, k]; AppendTo[numer, Numerator[s]]; k++, {n, 2, nMax}]; numer
%Y Cf. A076476.
%K nonn
%O 2,1
%A _T. D. Noe_, Oct 14 2002