OFFSET
0,1
COMMENTS
Decimal expansion of the constant whose continued fraction form is the sequence of all the composite numbers.
EXAMPLE
0.24019347271354040290765990165361943880486990402195476057141424611256753...
MAPLE
with(numtheory); P:=proc(q) local a, n; a:=0; for n from q by -1 to 4 do if not isprime(n) then a:=1/(a+n); fi; od; print(evalf(a, 120)); end: P(10^4);
MATHEMATICA
RealDigits[ Fold[1/(#1 + #2) &, 1, Reverse[ Composite@# & /@ Range@40]], 10, 111][[1]] (* Robert G. Wilson v, Apr 29 2018 *)
CROSSREFS
KEYWORD
AUTHOR
Paolo P. Lava, Apr 16 2018
STATUS
approved