Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #20 Aug 20 2019 09:24:04
%S 4,12,24,72,360,360,2520,504,1008,336,1680,1680,18480,18480,92400,
%T 1201200,10810800,10810800,10810800,21621600,21621600,367567200,
%U 52509600,52509600,997682400,997682400,997682400,6983776800,6983776800,6983776800
%N Denominator of the sum of the reciprocals of the first n composite numbers.
%C Same as A282512 without the initial 1.
%H Amiram Eldar, <a href="/A296358/b296358.txt">Table of n, a(n) for n = 1..3953</a>
%F Gerry Felderman (Personal communication, Dec 15 2017) observes that Sum_{k=1..n} 1/composite(k) (= A250133(n)/A296358(n)) ~ log(n) - loglog(n) ~ log pi(n) as n -> oo.
%e 1/4, 5/12, 13/24, 47/72, 271/360, 301/360, 2287/2520, 491/504, 1045/1008, 367/336, 1919/1680, 1999/1680, 22829/18480, ... = A250133/A296358
%t Accumulate[1/Select[Range[100],CompositeQ]]//Denominator (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 19 2018 *)
%Y Numerators are in A250133.
%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,1
%A _N. J. A. Sloane_, Dec 15 2017