A127030 Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^5.

652, 2608, 22905, 54295, 95041, 160874, 184867, 470884, 470884, 613399, 674707, 798611, 880111, 895056, 914998, 1024331, 1027117, 1623312, 1678362, 1699773, 1720078, 1826945, 1830202, 2025665, 2089347, 2092092, 2097388, 2133524, 2375222, 2471017, 2614646

Offset

1,1

Links

Table of n, a(n) for n=1..31.

Mathematica

$MaxExtraPrecision = 1000; a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && ((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) < 10^(-5)), AppendTo[a, x]], {x, 1, 100000}]; a

Crossrefs

Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, A127029.

Sequence in context: A261552 A002232 A127029 * A127031 A204511 A204506

Adjacent sequences: A127027 A127028 A127029 * A127031 A127032 A127033

Keyword

nonn

Author

Artur Jasinski, Jan 03 2007

Extensions

a(6)-a(31) from Jon E. Schoenfield, Sep 04 2017

Status

approved