A070753 Primes p such that sin(p) < 0.

5, 11, 17, 23, 29, 31, 37, 41, 43, 61, 67, 73, 79, 113, 131, 137, 149, 157, 163, 167, 173, 181, 193, 199, 211, 251, 257, 263, 269, 281, 293, 307, 313, 331, 337, 349, 383, 389, 401, 419, 431, 433, 439, 443, 457, 463, 487, 521

Offset

1,1

Comments

A070748(A049084(a(n))) = A070747(a(n)) = -1.

Links

Table of n, a(n) for n=1..48.

Mathematica

Select[Prime[Range[200]], Sin[#]<0&] (* Harvey P. Dale, May 07 2012 *)

Prog

(PARI) select(p->p/Pi%2\1, primes(100)) \\ Charles R Greathouse IV, Jun 13 2013

Crossrefs

Cf. A070754, A070748, A002145 (sin((Pi/2)*p) < 0 instead of sin(p) < 0), A070751.

Sequence in context: A277571 A000966 A031480 * A038939 A314243 A357253

Adjacent sequences: A070750 A070751 A070752 * A070754 A070755 A070756

Keyword

nonn

Author

Reinhard Zumkeller, May 04 2002

Status

approved