A076477 Primes in the numerator of partial sums of A076476.

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.

Links

Table of n, a(n) for n=2..27.

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

Adjacent sequences: A076474 A076475 A076476 * A076478 A076479 A076480

Keyword

nonn

Author

T. D. Noe, Oct 14 2002

Status

approved