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.
%I A070753 #13 Nov 29 2019 12:00:13 %S A070753 5,11,17,23,29,31,37,41,43,61,67,73,79,113,131,137,149,157,163,167, %T A070753 173,181,193,199,211,251,257,263,269,281,293,307,313,331,337,349,383, %U A070753 389,401,419,431,433,439,443,457,463,487,521 %N A070753 Primes p such that sin(p) < 0. %C A070753 A070748(A049084(a(n))) = A070747(a(n)) = -1. %t A070753 Select[Prime[Range[200]],Sin[#]<0&] (* _Harvey P. Dale_, May 07 2012 *) %o A070753 (PARI) select(p->p/Pi%2\1,primes(100)) \\ _Charles R Greathouse IV_, Jun 13 2013 %Y A070753 Cf. A070754, A070748, A002145 (sin((Pi/2)*p) < 0 instead of sin(p) < 0), A070751. %K A070753 nonn %O A070753 1,1 %A A070753 _Reinhard Zumkeller_, May 04 2002