A242729 Decimal expansion of the Atkinson-Negro-Santoro constant, a constant associated with Erdős' sum-distinct set constant.

3, 1, 6, 6, 8, 4, 1, 7, 3, 6, 5, 2, 7, 0, 5, 8, 2, 0, 2, 1, 8, 3, 5, 6, 5, 7, 2, 3, 0, 8, 2, 8, 8, 3, 2, 9, 6, 4, 6, 6, 7, 9, 9, 5, 4, 3, 9, 1, 7, 0, 8, 3, 4, 4, 6, 0, 2, 2, 0, 0, 5, 6, 8, 8, 2, 0, 2, 0, 0, 1, 4, 0, 2, 1, 2, 6, 1, 4, 6, 8, 2, 5, 6, 5, 6, 5, 0, 1, 7, 8, 9, 8, 2, 5, 5, 0, 4, 0, 0, 4

Offset: 0

Author

Jean-François Alcover, May 21 2014

Keywords

• nonn
• cons

Examples

			0.3166841736527058202183565723...
		

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.

Crossrefs

Cf. A002083, A005255.

Programs

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