This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 divide these numbers by 2. 16

%I

%S 1,5,13,29,61,573,2621,6717,23101,88637,350781,875069,9263677,

%T 26040893,93149757,227367485,2374851133,10964785725,28144654909,

%U 165583608381,440461515325,990217329213,3189240584765,7587287095869,16383380118077

%N 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 divide these numbers by 2.

%F a(n) = A099969(n)/2. - _Michel Marcus_, Nov 03 2013

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

%t 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 *)

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

%K nonn,easy

%O 0,2

%A _N. J. A. Sloane_, Nov 13, 2004, based on correspondence from _Artur Jasinski_, Mar 25 2003

%E More terms from _Ryan Propper_, Aug 18 2005

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 July 21 04:40 EDT 2019. Contains 325189 sequences. (Running on oeis4.)