A076475 Primes in the numerator of the slowest decreasing sequence of unit fractions whose partial sums have a prime numerator.

3, 11, 61, 11, 23, 263, 3529, 75539, 1767427, 2394941, 70374209, 638709217, 1287433439, 6485239219, 111050267123, 5926525377919, 17899889727157, 342263549497183, 344391855476983, 346449217924123, 348264537730423

Offset

2,1

Comments

Note that the primes are not necessarily increasing.

Links

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

Mathematica

nMax = 100; lst = {1}; numer = {1}; s = 1; i = 2; Do[While[ ! PrimeQ[Numerator[s + 1/i]], i++ ]; s = s + 1/i; AppendTo[lst, i]; AppendTo[numer, Numerator[s]]; i++, {n, 2, nMax}]; numer

Crossrefs

Cf. A076474.

Sequence in context: A303871 A231344 A007146 * A354417 A125556 A127516

Adjacent sequences: A076472 A076473 A076474 * A076476 A076477 A076478

Keyword

nonn

Author

T. D. Noe, Oct 14 2002

Status

approved