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,1

References

Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.28, p. 189.

Links

Table of n, a(n) for n=0..99.

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

Cf. A002083, A005255.

Sequence in context: A089511 A246257 A210744 * A112692 A291217 A198614

Adjacent sequences: A242726 A242727 A242728 * A242730 A242731 A242732

Keyword

nonn,cons

Author

Jean-François Alcover, May 21 2014

Status

approved