Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A076475
Primes in the numerator of the slowest decreasing sequence of unit fractions whose partial sums have a prime numerator.
1
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.
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 14 2002
STATUS
approved