The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A242403 Decimal expansion of the self-numbers density constant. 0
 2, 5, 2, 6, 6, 0, 2, 5, 9, 0, 0, 8, 8, 8, 2, 9, 2, 2, 1, 5, 5, 0, 6, 2, 7, 1, 4, 3, 2, 7, 8, 9, 4, 1, 4, 1, 8, 2, 5, 2, 1, 9, 3, 3, 9, 6, 2, 9, 7, 8, 4, 6, 1, 3, 0, 1, 6, 8, 6, 2, 1, 7, 2, 2, 9, 2, 2, 8, 0, 5, 4, 8, 4, 4, 7, 6, 6, 3, 2, 5, 6, 6, 9, 5, 9, 1, 4, 2, 4, 4, 7, 9, 3, 8, 6, 8, 8, 9, 4, 9 (list; constant; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 REFERENCES Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, p. 179. LINKS G. Troi, U. Zannier, Note on the density constant in the distribution of self-numbers. FORMULA (1/8)*(sum_(n not a binary self-number) 1/2^n)^2. EXAMPLE 0.2526602590088829221550627143278941418252... MATHEMATICA m0 = 100; dm = 100; digits = 100; Clear[lambda]; lambda[m_] := lambda[m] = Total[1/2^Union[Table[n + Total[IntegerDigits[n, 2]], {n, 0, m}]]]^2/8 // N[#, 2*digits]& // RealDigits[#, 10, 2*digits]& // First; lambda[m0]; lambda[m = m0 + dm]; While[lambda[m] != lambda[m - dm], Print["m = ", m]; m = m + dm]; lambda[m][[1 ;; digits]] CROSSREFS Cf. A003052, A010061, A010064, A010067, A010070, A092391, A228082. Sequence in context: A309431 A198539 A121311 * A179015 A195621 A267090 Adjacent sequences:  A242400 A242401 A242402 * A242404 A242405 A242406 KEYWORD nonn,cons AUTHOR Jean-François Alcover, May 13 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 27 15:59 EST 2020. Contains 332307 sequences. (Running on oeis4.)