A099974 Write log(2) as a binary fraction; read this from left to right and whenever a 1 appears, note the integer formed by reading leftwards from that 1.

1, 5, 13, 141, 653, 1677, 3725, 20109, 544397, 2641549, 6835853, 15224461, 32001677, 65556109, 132664973, 266882701, 803753613, 1877495437, 4024979085, 8319946381, 16909880973, 51269619341, 601025433229, 1700537061005

Offset

0,2

Links

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

Example

log(2) = 0.69314718055994530941723212145817656807550013436025525412... = 0.1011000101110010000101111111011111010001110011110111100110101011110010011110... in binary.

Mathematica

d = 100; l = First[RealDigits[N[Log[2], d], 2]]; Do[m = Take[l, n]; k = Length[m]; If[m[[k]] == 1, Print[FromDigits[Reverse[m], 2]]], {n, 1, d}] (* Ryan Propper, Aug 17 2005 *)
Module[{nn=50, l2}, l2=RealDigits[Log[2], 2, nn][[1]]; Table[FromDigits[ Reverse[ Take[ l2, n]], 2], {n, nn}]]//Union (* Harvey P. Dale, Mar 29 2016 *)

Crossrefs

Cf. A002162, A099969, A099970, A099971, A099972, A099973.

Sequence in context: A358922 A305643 A316919 * A247820 A336097 A187894

Adjacent sequences: A099971 A099972 A099973 * A099975 A099976 A099977

Keyword

nonn,easy

Author

N. J. A. Sloane, Nov 13, 2004, based on correspondence from Artur Jasinski, Mar 25 2003

Extensions

More terms from Ryan Propper, Aug 17 2005

Status

approved