|
%I #8 Feb 23 2020 19:43:47
%S 2,4,5,7,9,11,14,16,20,23,27,31,36,42,48,54,61,69,78,87,97,108,121,
%T 134,148,163,180,198,218,239,261,286,312,340,370,403,438,475,515,558,
%U 603,652,704,759,819,882,949,1020,1096,1177,1263,1354,1451,1553,1662,1778
%N a(n) = floor(e^sqrt(n)).
%H Harry J. Smith, <a href="/A058577/b058577.txt">Table of n, a(n) for n = 1..2000</a>
%F a(n) = floor(e^(x^0.5)).
%e a(7) = 14 because 7^0.5 = 2.645751... and e^2.645751 = 14.0940301...
%t Table[Floor[E^Sqrt[n]],{n,60}] (* _Harvey P. Dale_, Feb 23 2020 *)
%o (PARI) { default(realprecision, 100); for (n=1, 2000, write("b058577.txt", n, " ", floor(exp(sqrt(n)))); ); } \\ _Harry J. Smith_, Jun 22 2009
%K nonn
%O 1,1
%A Avi Peretz (njk(AT)netvision.net.il), Dec 25 2000
%E More terms from _Harry J. Smith_, Jun 22 2009
|
