%I #8 Feb 17 2018 13:45:16

%S 0,1,5,5,31,31,247,247,247,247,2927,2927,40361,40361,40361,40361,

%T 716167,716167,14117683,14117683,14117683,14117683,334406399,

%U 334406399,334406399,334406399,334406399,334406399,9920878441,9920878441,314016924901,314016924901

%N Numerator of Sum_{ primes p <= n} 1/p.

%C Very similar to A024451, which see for further information.

%H Harvey P. Dale, <a href="/A106830/b106830.txt">Table of n, a(n) for n = 1..1000</a>

%e 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, ...

%t Accumulate[Table[If[PrimeQ[n],1/n,0],{n,40}]]//Numerator (* _Harvey P. Dale_, Feb 17 2018 *)

%Y Denominators are in A034386.

%Y The following fractions are all related to each other: Sum 1/n: A001008/A002805, Sum 1/prime(n): A024451/A002110 and A106830/A034386, Sum 1/nonprime(n): A282511/A282512, Sum 1/composite(n): A250133/A296358.

%K nonn,frac

%O 1,3

%A _N. J. A. Sloane_, May 22 2005