|
| |
|
|
A064647
|
|
Denominators of partial sums of reciprocals of primorial numbers.
|
|
0
| |
|
|
2, 3, 10, 105, 770, 15015, 170170, 4849845, 6760390, 3234846615, 200560490130, 72752334655, 4680773285034, 284407855036305, 614889782588491410, 465559406817000639, 44715356980330526490, 19548063559901161830545
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| n=5, Sum[1/q(j)],j=1..5 = 1/2+1/6+1/30+1/210+1/2310= (1155+385+77+11+1)/2310=1629/2310=543/770, a(5)=770
|
|
|
MATHEMATICA
| q[x_] := Apply[Times, Table[Prime[j], {j, 1, x}]] a(n)=Denominator[Apply[Plus, Table[1/q[w], {w, 1, n}]]]
|
|
|
CROSSREFS
| A002110.
Sequence in context: A184249 A155148 A076927 * A062006 A119810 A055708
Adjacent sequences: A064644 A064645 A064646 * A064648 A064649 A064650
|
|
|
KEYWORD
| frac,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Oct 04 2001
|
| |
|
|
