OFFSET
-1,3
COMMENTS
Very close is defined here as being less than 1/100.
e^(Pi*sqrt(163)) is 262537412640768743.9999999999992500725971981856888... and no closer exponent of this character has been discovered. See A069014.
MATHEMATICA
Select[ Range[ -1, 1480], Abs[ Round[E^(Pi*Sqrt[ # ])] - E^(Pi*Sqrt[ # ])] < 0.01 &]
PROG
(Contribution from M. F. Hasler, Jan 26 2014) (Start)
/* Adjusting the p-value allows one to select more interesting subsequences. */
(PARI) is_A019296(n, p=2)=abs(frac(exp(sqrt(n)*Pi))-.5)>.5-.1^p
(PARI) {p=.5-.1^2; for(n=1, 9e9, abs(frac(exp(sqrt(n)*Pi))-.5)>p&&print1(round(exp(sqrt(n)*Pi))", ")) \\ (End)
CROSSREFS
KEYWORD
sign
AUTHOR
Roy Williams Clickery (roy(AT)ccsf.caltech.edu)
EXTENSIONS
Edited and extended by Robert G. Wilson v, Sep 07 2003
STATUS
approved