A062121 a(n) = floor(exp(n/Pi)).

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

Harry J. Smith, Table of n, a(n) for n=1..500

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

Adjacent sequences: A062118 A062119 A062120 * A062122 A062123 A062124

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