|
| |
|
|
A094661
|
|
Numerator of the sum of the ratios of consecutive primes.
|
|
2
| |
|
|
3, 19, 137, 1289, 16909, 259087, 4975049, 106267661, 2725447213, 85953848147, 2903947942067, 115669053951809, 5061522951820999, 231945249314081827, 11594813068340357459, 650803589794759938517, 40385350464999429101033
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
FORMULA
| a(n) = numerator(Sum(prime(k+1)/prime(k), k=1..n)
|
|
|
MATHEMATICA
| s=0; lst={}; Do[p=Prime[n]; r=Prime[n+1]; AppendTo[lst, Numerator[s+=r/p]], {n, 3*4!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 24 2009]
|
|
|
PROG
| (PARI) consec(n) = { y=0; forprime(x=2, n, y+=nextprime(x+1)/x; z=numerator(y); print1(z", ") ) }
|
|
|
CROSSREFS
| Sequence in context: A035086 A105797 A138513 * A094662 A115750 A156894
Adjacent sequences: A094658 A094659 A094660 * A094662 A094663 A094664
|
|
|
KEYWORD
| nonn,frac
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Jun 06 2004
|
| |
|
|
