Search: id:A127031
Results 1-1 of 1 results found.

%I A127031
%S A127031 652,2608,880111,2720885,4089051,4619054,5046630,5409046,5433402,5603556,
               5645558,7278138,7466589,10037029
%N A127031 Let f(n) = exp(pi*sqrt(n)); sequence gives numbers n such that f(n)-floor(f(n)) 
               < 1/10^6.
%p A127031 $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^(-6)), AppendTo[a, x]], {x, 1, 100000}]; a
%o A127031 (Pari) search(a,b)=my(t,prec=default(realprecision),nprec=round(Pi*sqrt(b)/
               log(10)+20));default(realprecision,nprec);for(n=floor(a),b,t=exp(Pi*sqrt(n));
               if(t-floor(t)<.000001,print(n)));default(realprecision,prec);
%Y A127031 Cf. A035484, A127022, A127023, A127024, A127025, A127026, A127027, A127028, 
               A127029.
%Y A127031 Sequence in context: A002232 A127029 A127030 this_sequence A089673 A104823 
               A145125
%Y A127031 Adjacent sequences: A127028 A127029 A127030 this_sequence A127032 A127033 
               A127034
%K A127031 nonn
%O A127031 1,1
%A A127031 Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
%E A127031 Program and more terms from Charles R Greathouse IV Jul 28 2009

Search completed in 0.001 seconds