Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A064646
Numerators of partial sums of reciprocals of primorial numbers.
2
1, 2, 7, 74, 543, 10589, 120009, 3420257, 4767631, 2281311434, 141441308909, 51307141467, 3301022547923, 200573000466191, 433638827007904943, 328326540448842314, 31534618884970203647, 13785884222546140694347
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
KEYWORD
frac,nonn
AUTHOR
Labos Elemer, Oct 04 2001
STATUS
approved