The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A259621 Positive integers k with record-setting smallest values of abs(cos(k) - cos(k*Pi/180)). 0

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 5 05:45 EST 2024. Contains 370537 sequences. (Running on oeis4.)