|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A075201 A136440 A007146 * A125556 A127516 A095237
Adjacent sequences: A076472 A076473 A076474 * A076476 A076477 A076478
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| T. D. Noe (noe(AT)sspectra.com), Oct 14 2002
|
| |
|
|
