cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A026317 Nonnegative integers k such that |cos(k)| > |sin(k+1)|.

Original entry on oeis.org

0, 2, 3, 5, 6, 9, 12, 15, 18, 19, 21, 22, 24, 25, 27, 28, 31, 34, 37, 40, 41, 43, 44, 46, 47, 49, 50, 53, 56, 59, 62, 63, 65, 66, 68, 69, 71, 72, 75, 78, 81, 84, 85, 87, 88, 90, 91, 93, 94, 97, 100, 103, 106, 107, 109, 110, 112, 113, 115
Offset: 1

Views

Author

Clark Kimberling

Keywords

Comments

The sequences A026317, A327136 and A327137 partition the nonnegative integers. - Clark Kimberling, Aug 23 2019
Requirement can be rewritten cos^2(k) > sin^2(k+1) => cos^2(k) > 1-cos^2(k+1) => cos^2(k+1) > 1-cos^2(k) => |cos(k+1)| > |sin(k)|. - R. J. Mathar, Sep 03 2019
These are also the numbers k such that sin(2k) < sin(2k+2).
Proof (Jean-Paul Allouche, Nov 14 2019):
cos^2(n) > sin^2(n+1) ;
Formulas for squares Abramowitz-Stegun 4.3.31 and 4.3.32:
1/2 + cos(2n)/2 > 1/2 - cos(2n+2) ;
cos(2n+2) + cos(2n) > 0 ;
Formulas for sums Abramowitz-Stegun 4.3.16 and 4.3.17:
cos(2n)*cos(2) - sin(2n)*sin(2) + cos(2n) > 0 ;
(1+cos(2))*cos(2n) > sin(2n)*sin 2;
Multiply both sides by 1-cos(2) which is >0:
(1-cos^2(2))*cos(2n) > (1-cos(2))*sin(2)*sin(2n) ;
sin^2(2)*cos(2n) > (1-cos(2))*sin(2)*sin(2n) ;
sin(2)*cos(2n) > (1-cos(2))*sin(2n) ;
(1-cos(2))*sin(2n) < cos(2n)*sin 2 ;
sin(2n) - sin(2n)*cos(2) < cos(2n)*sin(2);
sin(2n) < sin(2n)*cos(2)+cos(2n)*sin(2);
And backward application of Abramowitz-Stegun 4.3.16
sin(2n) < sin(2n+2) q.e.d.
Also nonnegative integers k such that cos(2k+1) > 0. Note that sin(2k+2) - sin(2k) = 2*cos(2k+1)*sin(1). - Jianing Song, Nov 16 2019

Crossrefs

Cf. A026309, A246303, A327138.

Programs

  • Magma
    [k:k in [0..120]|Abs(Cos(k)) gt Abs(Sin(k+1))]; // Marius A. Burtea, Nov 14 2019
  • Mathematica
    Select[Range[0,120],Abs[Cos[#]]>Abs[Sin[#+1]]&] (* Harvey P. Dale, Mar 04 2013 *)

A327139 Numbers k such that cos(2k) > cos(2k+2) < cos(2k+4).

Original entry on oeis.org

1, 4, 7, 10, 13, 16, 19, 23, 26, 29, 32, 35, 38, 41, 45, 48, 51, 54, 57, 60, 63, 67, 70, 73, 76, 79, 82, 85, 89, 92, 95, 98, 101, 104, 107, 111, 114, 117, 120, 123, 126, 129, 133, 136, 139, 142, 145, 148, 151, 155, 158, 161, 164, 167, 170, 173, 176, 180, 183
Offset: 1

Views

Author

Clark Kimberling, Aug 23 2019

Keywords

Comments

The sequences A327138, A327139, A327140 partition the positive integers.

Links

Crossrefs

Cf. A026309, A246303, A026317, A327138.

Programs

  • Mathematica
    z = 500; f[x_] := f[x] = Cos[2 x]; t = Range[1, z];
Select[t, f[#] < f[# + 1] &]    (* A327138 *)
Select[t, f[#] > f[# + 1] < f[# + 2] &]  (* A327139 *)
Select[t, f[#] > f[# + 1] > f[# + 2] < f[# + 3] &]   (* A327140 *)

Formula

(cos 2, cos 4, ...) = (-0.4, -0.6, 0.9, -0.1, -0.8, ...) approximately, so that the differences, in sign, are - + - - + - - + - - + +, with "+" in places 2,5,8,11,12,... (A327138), "- +" starting in places 1,4,7,10,13,... (A327139), and "- - +" starting in places 3,6,9,22,25,... (A327140).

A327140 Numbers k such that cos(2k) > cos(2k+2) > cos(2k+4) < cos(2k+6).

Original entry on oeis.org

3, 6, 9, 22, 25, 28, 31, 44, 47, 50, 53, 66, 69, 72, 75, 88, 91, 94, 97, 110, 113, 116, 119, 132, 135, 138, 141, 154, 157, 160, 163, 179, 182, 185, 188, 201, 204, 207, 210, 223, 226, 229, 232, 245, 248, 251, 254, 267, 270, 273, 276, 289, 292, 295, 298, 311
Offset: 1

Views

Author

Clark Kimberling, Aug 23 2019

Keywords

Comments

The sequences A327138, A327139, A327140 partition the positive integers.

Examples

			(cos 2, cos 4, ...) = (-0.4, -0.6, 0.9, -0.1, -0.8, ...) approximately, so that the differences, in sign, are - + - - + - - + - - + +, with "+" in places 2,5,8,11,12, ... (A327138), "- +" starting in places 1,4,7,10,13,... (A327139), and "- - +" starting in places 3,6,9,22,25,... (A327140).

Links

Crossrefs

Cf. A026309, A246303, A026317, A327138.

Programs

  • Mathematica
    z = 500; f[x_] := f[x] = Cos[2 x]; t = Range[1, z];
Select[t, f[#] < f[# + 1] &]    (* A327138 *)
Select[t, f[#] > f[# + 1] < f[# + 2] &]  (* A327139 *)
Select[t, f[#] > f[# + 1] > f[# + 2] < f[# + 3] &]   (* A327140 *)

A026319 a(n) is the n-th nonnegative integer k satisfying |sin(k)| < |cos(k)| < |sin(k+1)|.

Original entry on oeis.org

7, 10, 13, 16, 29, 32, 35, 38, 51, 54, 57, 60, 73, 76, 79, 82, 95, 98, 101, 104, 117, 120, 123, 126, 139, 142, 145, 148, 161, 164, 167, 170, 186, 189, 192, 208, 211, 214, 230, 233, 236, 252, 255, 258, 274, 277, 280, 296, 299, 302
Offset: 1

Views

Author

Clark Kimberling

Keywords

Crossrefs

Cf. A026317, A246303, A327138, A327139.

Programs

  • Mathematica
    Select[Range[0,310],Abs[Sin[#]]Stefano Spezia, Feb 04 2025 *)
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.