OFFSET
0,1
LINKS
Michael Reilly, Table of n, a(n) for n = 0..10000
MATHEMATICA
q[x_] := Apply[Times, Table[Prime[w], {w, 1, PrimePi[x]}]];
ContinuedFraction[Sum[1/q[n], {n, 0, 100}]]
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Michael Reilly, Nov 29 2020
STATUS
approved