|
%I #6 Sep 04 2017 19:27:56
%S 148,268,652,1194,1332,1519,2608,5650,5774,5868,6632,7260,9058,10153,
%T 10210,11076,12314,13049,13097,14370,15696,16170,18736,19571,21655,
%U 21814,22905,23325,24496,27435,28201,29239,31214,34218,36166,36287,38805,38990,42761
%N Let f(n) = exp(Pi*sqrt(n)); sequence gives numbers n such that f(n) - floor(f(n)) < 1/10^3.
%t a = {}; Do[If[((Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-3)), AppendTo[a, x]], {x, 1, 1000}]; a
%Y Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127029, A127030.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 03 2007
%E a(7)-a(39) from _Jon E. Schoenfield_, Sep 04 2017
|
