OFFSET
0,1
LINKS
Steven R. Finch, Errata and Addenda to Mathematical Constants. p. 46.
FORMULA
p = (2/135)*exp(-beta)*(4 - 45*beta^2 + 45*beta^3), where beta = A246770 = the largest root of 45*x^3 - 180*x^2 + 90*x + 4.
EXAMPLE
0.619252270984884908663280718193752667423088771902409501034...
MATHEMATICA
beta = Root[45x^3 - 180*x^2 + 90*x + 4, x, 3]; p = (2/135)*Exp[-beta]*(4 - 45*beta^2 + 45*beta^3); RealDigits[p, 10, 104] // First
CROSSREFS
KEYWORD
AUTHOR
Jean-François Alcover, Sep 03 2014
STATUS
approved