%I #18 Aug 26 2020 16:00:39
%S 1,23,85,230,535,1124,2197,4071,7228,12391,20631,33506,53252,83047,
%T 127358,192400,286751,422150,614551,885479,1263794,1787960,2508951,
%U 3493969,4831163,6635623,9056943,12288743,16580630,22253151,29716459
%N a(n) = floor(exp(Pi*sqrt(n))).
%C Some of these values are very close to integers; e.g., a(17)= 422150.9976756804516....
%H Harry J. Smith, <a href="/A060456/b060456.txt">Table of n, a(n) for n = 0..1000</a>
%p Digits := 100; for n from 0 to 40 do printf(`%d,`,floor( exp(Pi*sqrt(n)))) od:
%t Table[Floor[Exp[Pi Sqrt[n]]],{n,0,40}] (* _Harvey P. Dale_, Aug 26 2020 *)
%o (PARI) { default(realprecision, 100); for (n=0, 1000, write("b060456.txt", n, " ", floor(exp(Pi*sqrt(n)))); ) } \\ _Harry J. Smith_, Jul 05 2009
%K easy,nonn
%O 0,2
%A _Jason Earls_, Apr 08 2001
%E More terms from _James A. Sellers_, Apr 11 2001