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

Author

Reinhard Zumkeller, May 04 2002

Keywords

• nonn

Comments

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

Crossrefs

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

Programs

Mathematica

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

PARI

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