OFFSET
1,2
COMMENTS
The numbers of digits of the terms are 1, 2, 5, 12, 30, 84, 215, 537, 1237, 2929, 6775, 15483, 35184, ... .
LINKS
MATHEMATICA
d[k_, n_] := Product[1 - 1/Prime[i]^k, {i, 1, n}]; f[n_] := Sum[k * (d[k+1, n] - d[k, n]), {k, 1, Infinity}]; Denominator[Array[f, 6]]
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Amiram Eldar, Aug 19 2024
STATUS
approved