|
Search: id:A099970
|
|
|
| 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. |
|
+0
11
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
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}] (Propper)
|
|
CROSSREFS
|
Adjacent sequences: A099967 A099968 A099969 this_sequence A099971 A099972 A099973
Sequence in context: A029580 A113914 A050415 this_sequence A073857 A124698 A085555
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
njas, Nov 13, 2004, based on correspondence from Artur Jasinski (grafix(AT)csl.pl), Mar 25 2003
|
|
EXTENSIONS
|
More terms from Ryan Propper (rpropper(AT)stanford.edu), Aug 18 2005
|
|
|
Search completed in 0.002 seconds
|
