|
Search: id:A076475
|
|
|
| A076475 |
|
Primes in the numerator of the slowest decreasing sequence of unit fractions whose partial sums have a prime numerator. |
|
+0
2
|
|
| 3, 11, 61, 11, 23, 263, 3529, 75539, 1767427, 2394941, 70374209, 638709217, 1287433439, 6485239219, 111050267123, 5926525377919, 17899889727157, 342263549497183, 344391855476983, 346449217924123, 348264537730423
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
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 this_sequence A125556 A127516 A095237
Adjacent sequences: A076472 A076473 A076474 this_sequence A076476 A076477 A076478
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Oct 14 2002
|
|
|
Search completed in 0.002 seconds
|
