login
A019296
Values of n for which exp(Pi*sqrt(n)) is very close to an integer.
4
-1, 0, 6, 17, 18, 22, 25, 37, 43, 58, 59, 67, 74, 103, 148, 149, 163, 164, 177, 205, 223, 226, 232, 267, 268, 326, 359, 386, 522, 566, 630, 638, 652, 719, 790, 792, 928, 940, 986, 1005, 1014, 1169, 1194, 1213, 1245, 1257, 1293, 1326, 1332, 1353, 1441, 1467
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