|
Search: id:A076477
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
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: A146456 A095692 A163421 this_sequence A104079 A089620 A144335
Adjacent sequences: A076474 A076475 A076476 this_sequence A076478 A076479 A076480
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Oct 14 2002
|
|
|
Search completed in 0.002 seconds
|
