|
| |
|
|
A076477
|
|
Primes in the numerator of partial sums of A076476.
|
|
1
| |
|
|
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
(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; 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 * A104079 A089620 A144335
Adjacent sequences: A076474 A076475 A076476 * A076478 A076479 A076480
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| T. D. Noe (noe(AT)sspectra.com), Oct 14 2002
|
| |
|
|
