login
a(n) = floor(exp(n/Pi)).
1

%I #18 Sep 08 2022 08:45:03

%S 1,1,2,3,4,6,9,12,17,24,33,45,62,86,118,162,223,307,423,581,799,1099,

%T 1511,2078,2857,3928,5401,7425,10208,14034,19295,26526,36469,50138,

%U 68929,94765,130283,179113,246245,338539,465424,639866,879690,1209400

%N a(n) = floor(exp(n/Pi)).

%H Harry J. Smith, <a href="/A062121/b062121.txt">Table of n, a(n) for n=1..500</a>

%t Table[Floor[Exp[n/Pi]], {n, 1, 50}] (* _G. C. Greubel_, Jan 31 2019 *)

%o (PARI) v=[]; for(n=1,65,v=concat(v,floor(exp(n/Pi)))); v

%o (PARI) { default(realprecision, 100); for (n=1, 500, write("b062121.txt", n, " ", floor(exp(n/Pi))) ) } \\ _Harry J. Smith_, Aug 02 2009

%o (Magma) R:= RealField(10); [Floor(Exp(n/Pi(R))): n in [1..50]]; // _G. C. Greubel_, Jan 31 2019

%o (Sage) [floor(exp(n/pi)) for n in (1..50)] # _G. C. Greubel_, Jan 31 2019

%K nonn

%O 1,3

%A _Jason Earls_, Jun 29 2001

%E Corrected by _T. D. Noe_, Oct 25 2006

%E OFFSET changed from 0,3 to 1,3 by _Harry J. Smith_, Aug 02 2009