Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A076477
Primes in the numerator of partial sums of A076476.
1
3, 11, 31, 167, 59, 433, 971, 9859, 10111, 123821, 126131, 1667423, 1744643, 1768667, 3942739, 67747283, 24170681, 475579259, 487218887, 490914007, 508549807, 11774243081, 4494873917, 23545215361, 23888435161, 674733465347
OFFSET
2,1
COMMENTS
Note that the primes are not necessarily increasing.
MATHEMATICA
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
CROSSREFS
Cf. A076476.
Sequence in context: A095692 A163421 A173381 * A319335 A104079 A332264
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 14 2002
STATUS
approved