|
Search: id:A099972
|
|
|
| A099972 |
|
Write 1/sqrt(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
5
|
|
| 1, 5, 13, 45, 173, 8365, 73901, 204973, 467117, 991405, 5185709, 13574317, 80683181, 214900909, 1288642733, 3436126381, 7731093677, 16321028269, 33500897453, 67860635821, 136580112557, 686335926445, 1785847554221
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
EXAMPLE
|
1/sqrt(2) = 0.7071067811865475244008443621048490392848359376885... = 0.10110101000001001111001100110011111110011101111001100100100001000101100101111101100010011011 in binary.
|
|
MATHEMATICA
|
d = 100; l = First[RealDigits[N[1/Sqrt[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
|
Sequence in context: A113835 A006349 A052899 this_sequence A060050 A120790 A025545
Adjacent sequences: A099969 A099970 A099971 this_sequence A099973 A099974 A099975
|
|
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
|
