|
%I #21 Mar 16 2021 01:25:28
%S 1,6,32,179,243,352,2705,3063,8601,25560,144770,516060,2605860,
%T 31786380,66178620,1024465680,1090644300,6477687180,7568331480
%N Positive integers k with record-setting smallest values of abs(cos(k) - cos(k*Pi/180)).
%C Equivalently, positive integers k with record-setting smallest differences between cos(k) in radians and cos(k) in degrees.
%e 32 belongs to the sequence because no k < 32 has abs(cos(k) - cos(k*Pi/180)) < abs(cos(32) - cos(32*Pi/180)) = 0.01382...
%o (Python)
%o from math import pi,cos
%o def record_smallest():
%o ...n = 0
%o ...record = None
%o ...while True:
%o ......n+=1
%o ......v = abs(cos(n)-cos(n*pi/180.0))
%o ......if record is None or v<record:
%o .........yield n
%o .........record = v
%o (PARI) f(n)=abs(cos(n)-cos(n*Pi/180))
%o print1(1); r=f(1); for(n=2,1e6, t=f(n); if(t<r, r=t; print1(", "n))) \\ _Charles R Greathouse IV_, Jul 16 2015
%K nonn,more
%O 1,2
%A _Christian Perfect_, Jul 01 2015
%E a(13)-a(19) from _Giovanni Resta_, Jul 16 2015
| 