|
Search: id:A064646
|
|
|
| A064646 |
|
Numerators of partial sums of reciprocals of primorial numbers. |
|
+0
2
|
|
| 1, 2, 7, 74, 543, 10589, 120009, 3420257, 4767631, 2281311434, 141441308909, 51307141467, 3301022547923, 200573000466191, 433638827007904943, 328326540448842314, 31534618884970203647, 13785884222546140694347
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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)=543
|
|
MATHEMATICA
|
q[x_] := Apply[Times, Table[Prime[j], {j, 1, x}]] a(n)=Numerator[Apply[Plus, Table[1/q[w], {w, 1, n}]]]
|
|
CROSSREFS
|
A002110.
Sequence in context: A100360 A141315 A119811 this_sequence A144905 A083455 A083829
Adjacent sequences: A064643 A064644 A064645 this_sequence A064647 A064648 A064649
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 04 2001
|
|
|
Search completed in 0.007 seconds
|
