editing
approved
editing
approved
Harvey P. Dale, <a href="/A106830/b106830.txt">Table of n, a(n) for n = 1..1000</a>
Accumulate[Table[If[PrimeQ[n], 1/n, 0], {n, 40}]]//Numerator (* Harvey P. Dale, Feb 17 2018 *)
approved
editing
editing
approved
_N. J. A. Sloane (njas(AT)research.att.com), _, May 22 2005
nonn,frac,new
N. J. A. Sloane (njas, (AT)research.att.com), May 22 2005
Numerator of Sum_{ primes p <= n} 1/p.
0, 1, 5, 5, 31, 31, 247, 247, 247, 247, 2927, 2927, 40361, 40361, 40361, 40361, 716167, 716167, 14117683, 14117683, 14117683, 14117683, 334406399, 334406399, 334406399, 334406399, 334406399, 334406399, 9920878441, 9920878441, 314016924901, 314016924901
1,3
Very similar to A024451, which see for further information.
0, 1/2, 5/6, 5/6, 31/30, 31/30, 247/210, 247/210, 247/210, 247/210, 2927/2310, 2927/2310, 40361/30030, 40361/30030, 40361/30030, ...
nonn,frac
njas, May 22 2005
approved