login
Primes in the numerator of partial sums of A076476.
1

%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