|
%I #16 Dec 15 2017 17:36:41
%S 1,2,3,8,61,80,126,196,258,259,337,1619,1638,7876,7992,13719,28371,
%T 29915,53708,67659,439936,688433
%N Numbers n such that (Pi/sqrt(2))^n is closer to its nearest integer than any value of (Pi/sqrt(2))^k for 1 <= k < n.
%C a(23) > 10^6. - _Jon E. Schoenfield_, Jul 25 2015
%e The discrepancy from an integer at n=1638 is 0.00008059...
%e The discrepancy from an integer at n=29915 is 0.000011153743573...
%t $MaxExtraPrecision = 2^20; a = 1; Do[ d = Abs[ N[ (Pi/Sqrt[2])^n - Round[(Pi/Sqrt[2])^n], 24]]; If[ d < a, a = d; Print[n]], {n, 41000}] (* _Robert G. Wilson v_, Jun 30 2004 *)
%K more,nonn
%O 1,2
%A _Jason Earls_, Jun 22 2004
%E a(14)-a(18) from _Robert G. Wilson v_, Jun 30 2004
%E a(19)-a(22) from _Jon E. Schoenfield_, Jul 25 2015
|
