|
Search: id:A112627
|
|
|
| A112627 |
|
Decimal equivalent of number defined by last k bits of the infinite binary string ...0011001100110011 (numbers with leading zeros omitted). |
|
+0
12
|
|
| 1, 3, 19, 51, 307, 819, 4915, 13107, 78643, 209715, 1258291, 3355443, 20132659, 53687091, 322122547, 858993459, 5153960755, 13743895347, 82463372083, 219902325555, 1319413953331, 3518437208883, 21110623253299
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
G.f.: (1+2*x)/(1-x-16*x^2+16*x^3) [according to Superseeker].
|
|
EXAMPLE
|
1 = 1
11 = 3
10011 = 19
110011 = 51
100110011 = 307
1100110011 = 819
...
|
|
MATHEMATICA
|
t = {}; lst = First@RealDigits[ N[1/5, 100], 2]; Do[ If[ lst[[n]] == 1, AppendTo[t, FromDigits[ Reverse@Take[lst, n], 2]]], {n, 49}]; t
(* The first line establishes the binary expansion of 1/5 to 100 places (A021913, except for start). The loop extracts the first n terms in this sequence and if it ends in "1", reverses digits and converts to decimal. *)
|
|
CROSSREFS
|
Sequence in context: A099007 A023280 A054697 this_sequence A100697 A134268 A088798
Adjacent sequences: A112624 A112625 A112626 this_sequence A112628 A112629 A112630
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), based on email from Artur Jasinski (grafix(AT)csl.pl), with assistance from Dean Hickerson, Ray Chandler and Robert G. Wilson v, Dec 27 2005
|
|
|
Search completed in 0.002 seconds
|
