|
|
A293337
|
|
Least integer k such that k/2^n > e.
|
|
2
|
|
|
3, 6, 11, 22, 44, 87, 174, 348, 696, 1392, 2784, 5568, 11135, 22269, 44537, 89073, 178146, 356291, 712582, 1425163, 2850326, 5700651, 11401301, 22802601, 45605202, 91210403, 182420806, 364841612, 729683223, 1459366445, 2918732889, 5837465778, 11674931555
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = ceiling(e*2^n).
|
|
MATHEMATICA
|
z = 120; r = E;
Table[Floor[r*2^n], {n, 0, z}]; (* A027437 *)
Table[Ceiling[r*2^n], {n, 0, z}]; (* A293337 *)
Table[Round[r*2^n], {n, 0, z}]; (* A293338 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|