|
%I #27 Jun 12 2016 21:27:20
%S -1,1,2198,422151,614552,2508952,6635624,199148648,884736744,
%T 24591257752,30197683487,147197952744,545518122090,70292286279654,
%U 39660184000219160,45116546012289600,262537412640768744
%N Integers k such that abs(e^(Pi*sqrt(n)) - k) < 0.01 for some n.
%C Old name of sequence was "Integers that are very close to values of exp(Pi*sqrt(n))", which left "very close" undefined. _Robert G. Wilson v_ resolved this problem on Feb 28 2006 with the comment that "'Very close' means to within 0.01." - _Jon E. Schoenfield_, Mar 21 2015
%D H. M. Stark, An Introduction to Number Theory. Markham, Chicago, 1970, p. 179.
%e e^(Pi*sqrt(163)) = 262537412640768743.99999999999925007259719818568887935385...
%t f[n_] := Block[{e = Exp[Pi*Sqrt[n]]}, Abs[e - Round[e]]]; Round @ Exp[Pi*Sqrt @ Select[Range[ -1, 200], f @ # < 10^(-2) &]] (* _Robert G. Wilson v_, Feb 28 2006 *)
%Y Cf. A019296, A058292, A060295.
%K sign
%O 0,3
%A Roy Williams Clickery (roy(AT)ccsf.caltech.edu)
%E New name, based on Feb 28 2006 comment from _Robert G. Wilson v_, from _Jon E. Schoenfield_, Mar 21 2015
%E Typos in Mma program corrected by _Giovanni Resta_, Jun 12 2016
|
