OFFSET
1,3
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.1 Hardy-Littlewood Constants, p. 88.
LINKS
Eric Weisstein's MathWorld, Goldbach Conjecture.
Eric Weisstein's MathWorld, Vinogradov's theorem.
Wikipedia, Goldbach's conjecture.
Wikipedia, Vinogradov's theorem.
EXAMPLE
1.150480772356618527278488074374698090630393298511083680688193059...
MATHEMATICA
$MaxExtraPrecision = 1600; digits = 99; terms = 1600; P[n_] := PrimeZetaP[n]; LR = Join[{0, 0, 0}, LinearRecurrence[{4, -6, 3}, {3, 12, 30}, terms + 10]]; r[n_Integer] := LR[[n]]; (1/2) Exp[NSum[r[n]*P[n - 1]/(n - 1), {n, 3, terms}, NSumTerms -> terms, WorkingPrecision -> digits + 10]] // RealDigits[#, 10, digits]& // First
PROG
(PARI) (1/2) * prodeulerrat(1+1/(p-1)^3) \\ Amiram Eldar, Mar 14 2021
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Apr 17 2016
STATUS
approved