|
|
A099973
|
|
Write Euler's constant gamma 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.
|
|
5
|
|
|
1, 9, 73, 201, 457, 969, 9161, 140233, 402377, 2499529, 6693833, 15082441, 31859657, 65414089, 132522953, 1206264777, 3353748425, 11943683017, 29123552201, 63483290569, 132202767305, 269641720777, 819397534665
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
gamma = 0.577215664901532860606512090082402431042159335939923598805... = 0.1001001111000100011001111110001101111101101100001100011110100100110100011011... in binary.
|
|
MATHEMATICA
|
d = 100; l = First[RealDigits[N[EulerGamma, 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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|