[go: up one dir, main page]

login
A062121
a(n) = floor(exp(n/Pi)).
1
1, 1, 2, 3, 4, 6, 9, 12, 17, 24, 33, 45, 62, 86, 118, 162, 223, 307, 423, 581, 799, 1099, 1511, 2078, 2857, 3928, 5401, 7425, 10208, 14034, 19295, 26526, 36469, 50138, 68929, 94765, 130283, 179113, 246245, 338539, 465424, 639866, 879690, 1209400
OFFSET
1,3
LINKS
MATHEMATICA
Table[Floor[Exp[n/Pi]], {n, 1, 50}] (* G. C. Greubel, Jan 31 2019 *)
PROG
(PARI) v=[]; for(n=1, 65, v=concat(v, floor(exp(n/Pi)))); v
(PARI) { default(realprecision, 100); for (n=1, 500, write("b062121.txt", n, " ", floor(exp(n/Pi))) ) } \\ Harry J. Smith, Aug 02 2009
(Magma) R:= RealField(10); [Floor(Exp(n/Pi(R))): n in [1..50]]; // G. C. Greubel, Jan 31 2019
(Sage) [floor(exp(n/pi)) for n in (1..50)] # G. C. Greubel, Jan 31 2019
CROSSREFS
Sequence in context: A036003 A027338 A064174 * A094995 A375980 A018591
KEYWORD
nonn
AUTHOR
Jason Earls, Jun 29 2001
EXTENSIONS
Corrected by T. D. Noe, Oct 25 2006
OFFSET changed from 0,3 to 1,3 by Harry J. Smith, Aug 02 2009
STATUS
approved