|
Search: id:A105053
|
|
|
| A105053 |
|
Least number k such that (1+1/k)^k yields n digits of e (A001113). |
|
+0
1
|
| |
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
a(1) = 1 because (1+1/1)^1= 2 which equals e in the units place.
a(2) = 74 because (1+1/73)^73 = 2.69989... but (1+1/74)^74 = 2.700139...; thus 74 is the least number which will give e to 2 place accuracy, namely 2.7.
|
|
MATHEMATICA
|
f[0] = 0; f[n_] := f[n] = Block[{k = f[n - 1] + 1, d = FromDigits[{Take[ RealDigits[E, 10, 111][[1]], n], 1}]}, While[(1 + 1/k)^k < d, k++ ]; k]; Table[ f[n], {n, 6}]
|
|
CROSSREFS
|
Cf. A001113.
Sequence in context: A118221 A044325 A044706 this_sequence A044406 A044787 A051970
Adjacent sequences: A105050 A105051 A105052 this_sequence A105054 A105055 A105056
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 02 2005
|
|
|
Search completed in 0.002 seconds
|
