OFFSET
1,1
LINKS
W. Aiello, F. Chung, L. Lu, A random graph model for power law graphs, Experiment. Math. Volume 10, Issue 1 (2001), 53-66.
Steven R. Finch, Errata and addenda to Mathematical Constants, p. 39.
M. E. J. Newman, The structure and function of complex networks, arXiv:cond-mat/0303516 [cond-mat.stat-mech], 2003, page 24.
FORMULA
Solution of zeta(beta - 2) - 2*zeta(beta - 1) = 0, beta > 3.
EXAMPLE
3.4787507857339602606714872613903354043431263025725988586242...
MATHEMATICA
beta0 = beta /. FindRoot[Zeta[beta - 2] - 2*Zeta[beta - 1] == 0, {beta, 7/2}, WorkingPrecision -> 104]; RealDigits[beta0] // First
PROG
(PARI) solve(x=3.4, 4, zeta(x-2)-2*zeta(x-1)) \\ Charles R Greathouse IV, Sep 09 2014
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Sep 09 2014
STATUS
approved