%I A076477
%S A076477 3,11,31,167,59,433,971,9859,10111,123821,126131,1667423,1744643,
%T A076477 1768667,3942739,67747283,24170681,475579259,487218887,490914007,
%U A076477 508549807,11774243081,4494873917,23545215361,23888435161,674733465347
%N A076477 Primes in the numerator of partial sums of A076476.
%C A076477 Note that the primes are not necessarily increasing.
%t A076477 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 A076477 Cf. A076476.
%Y A076477 Sequence in context: A146456 A095692 A163421 this_sequence A104079 A089620 
               A144335
%Y A076477 Adjacent sequences: A076474 A076475 A076476 this_sequence A076478 A076479 
               A076480
%K A076477 nonn
%O A076477 2,1
%A A076477 T. D. Noe (noe(AT)sspectra.com), Oct 14 2002