OFFSET
0,1
LINKS
Eric Weisstein's World of Mathematics, Biunitary Divisor.
FORMULA
EXAMPLE
0.901241806826482255139197485094387558982811533821787...
MATHEMATICA
$MaxExtraPrecision = 1000; m = 1000; f[p_] := 2 - 1/p - (p - 1)*Log[(p + 1)/(p - 1)]/2; c = Rest[CoefficientList[Series[Log[f[1/x]], {x, 0, m}], x]]; RealDigits[Exp[NSum[Indexed[c, n]*PrimeZetaP[n], {n, 2, m}, NSumTerms -> m, WorkingPrecision -> m]], 10, 100][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Amiram Eldar, Mar 01 2023
STATUS
approved