|
Search: id:A099974
|
|
|
| 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. |
|
+0
7
|
|
| 1, 5, 13, 141, 653, 1677, 3725, 20109, 544397, 2641549, 6835853, 15224461, 32001677, 65556109, 132664973, 266882701, 803753613, 1877495437, 4024979085, 8319946381, 16909880973, 51269619341, 601025433229, 1700537061005
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
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}] (Propper)
|
|
CROSSREFS
|
Adjacent sequences: A099971 A099972 A099973 this_sequence A099975 A099976 A099977
Sequence in context: A117527 A004063 A005764 this_sequence A117077 A124924 A124878
|
|
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 17 2005
|
|
|
Search completed in 0.002 seconds
|
