|
%I #5 Oct 15 2013 22:31:07
%S 1,2,7,74,543,10589,120009,3420257,4767631,2281311434,141441308909,
%T 51307141467,3301022547923,200573000466191,433638827007904943,
%U 328326540448842314,31534618884970203647,13785884222546140694347
%N Numerators of partial sums of reciprocals of primorial numbers.
%e 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
%t q[x_] := Apply[Times, Table[Prime[j], {j, 1, x}]] a(n)=Numerator[Apply[Plus, Table[1/q[w], {w, 1, n}]]]
%Y A002110.
%K frac,nonn
%O 1,2
%A _Labos Elemer_, Oct 04 2001
|
