[go: up one dir, main page]

login
A195604
Numerator of floor(e*10^n)/10^n, where e = exp(1) = A001113.
1
2, 27, 271, 1359, 13591, 67957, 2718281, 13591409, 135914091, 679570457, 6795704571, 54365636569, 2718281828459, 2718281828459, 16989261427869, 543656365691809, 6795704571147613, 271828182845904523, 543656365691809047, 27182818284590452353
OFFSET
0,1
COMMENTS
Numerator of the decimal fraction of e = 2.71828... truncated to a given number of decimal places.
EXAMPLE
a(2) = 271 is the numerator of 2.71 = 271/100.
a(3) = 1359 is the numerator of 2.718 = 2718/1000 = 1359/500.
MATHEMATICA
Module[{nn=30, ee}, ee=RealDigits[E, 10, nn][[1]]; Join[{2}, Rest[ Numerator[ Table[ FromDigits[Take[ee, n]]/10^n, {n, nn}]]]]] (* Harvey P. Dale, May 15 2015 *)
PROG
(PARI) a(n, c=exp(1))=numerator(c\.1^n/10^n) \\ M. F. Hasler, Sep 21 2011
CROSSREFS
Sequence in context: A175529 A267547 A302174 * A011543 A221186 A220530
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, following a suggestion by Eric Angelini, Sep 21 2011
STATUS
approved