A102522 Consider A100060 as a binary fraction: this is its decimal fractional equivalent.

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

Offset

0,1

Links

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

Example

0.6617104154252787297744583315053700790798944281724706799325...

Mathematica

zz = { (* the list of values in the link *) }; yy = Drop[zz, 1] - Drop[zz, -1]; xx = Drop[yy, 1] - Drop[yy, -1]; RealDigits[ FromDigits[ {Join[{1}, Table[If[xx[[n]] > 0, 1, 0], {n, 370}]], 0}, 2], 10, 111][[1]]

Crossrefs

Cf. A100060.

Sequence in context: A247447 A112302 A073012 * A201672 A200299 A254134

Adjacent sequences: A102519 A102520 A102521 * A102523 A102524 A102525

Keyword

cons,nonn

Author

Gary W. Adamson and Robert G. Wilson v, Jan 13 2005

Status

approved