A099970 Write 1/e 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. Then convert those integers from binary into decimal numbers.

1, 5, 13, 29, 61, 573, 2621, 6717, 23101, 88637, 350781, 875069, 9263677, 26040893, 93149757, 227367485, 2374851133, 10964785725, 28144654909, 165583608381, 440461515325, 990217329213, 3189240584765, 7587287095869, 16383380118077

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Formula

a(n) = A099969(n)/2. - Michel Marcus, Nov 03 2013

Example

1/e = 0.367879441171442321595523770161460867445811131031767834507... = 0.010111100010110101011000110110001011001110111100110111110001101010111010110111 in binary.

Mathematica

d = 100; l = First[RealDigits[N[1/E, 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 18 2005 *)
Module[{nn=50, e}, e=RealDigits[1/E, 2, 50][[1]]; Table[If[e[[n]]== 0, Nothing, FromDigits[ Reverse[Take[e, n]], 2]], {n, nn}]] (* Harvey P. Dale, Sep 17 2020 *)

Crossrefs

Cf. A068985, A099969, A099971, A099972, A099973, A099974.

Sequence in context: A344920 A113914 A050415 * A073857 A295112 A239367

Adjacent sequences: A099967 A099968 A099969 * A099971 A099972 A099973

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 18 2005

Definition amended by Harvey P. Dale, Sep 17 2020

Status

approved