OFFSET
0,1
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.28, p. 189.
LINKS
W. F. Lunnon, Integer sets with distinct subset-sums, Math. Comp. 50 (1988), 297-320.
EXAMPLE
0.3166841736527058202183565723...
MATHEMATICA
digits = 100; Clear[u, s]; u[n_] := u[n] = 2 u[n-1] - u[n-1 - Floor[(n-1)/2 + 1]]; u[0] = 0; u[1] = 1; s[k_] := s[k] = u[k]/2^k // N[#, digits + 5] &; s[dk = 100]; s[k = 2*dk]; While[RealDigits[s[k], 10, digits] != RealDigits[s[k - dk], 10, digits], Print["k = ", k]; k = k + dk]; RealDigits[s[k], 10, digits] // First
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, May 21 2014
STATUS
approved