The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Sep 09 2012 11:11:09
%S 2,11,19,23,37,43,53,61,67,71,73,89,97,101,103,107,109,127,131,137,
%T 149,151,167,181,193,223,227,241,257,271,277,281,293,307,311,313,331,
%U 337,347,353,389,397,419,431,461
%N Primes p such that 51 is not a square mod p.
%H Vincenzo Librandi, <a href="/A038930/b038930.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime@Range[120], JacobiSymbol[51, #] == -1 &] (* _Vincenzo Librandi_, Sep 09 2012 *)
%o (PARI) select(n->!issquare(Mod(51,n)),primes(100)) \\ _Charles R Greathouse IV_, Sep 09 2012
%K nonn
%O 1,1
%A _N. J. A. Sloane_.
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Sep 09 2012