A038926 Primes p such that 46 is not a square mod p.

11, 13, 17, 19, 29, 31, 43, 47, 67, 71, 83, 89, 97, 101, 107, 113, 127, 137, 151, 167, 173, 197, 223, 227, 239, 241, 251, 269, 271, 277, 281, 283, 311, 313, 317, 337, 349, 379, 397, 401, 419, 433, 439, 457, 461

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime@Range[120], JacobiSymbol[46, #] == -1 &] (* Vincenzo Librandi, Sep 09 2012 *)

Prog

(PARI) select(n->!issquare(Mod(46, n)), primes(100)) \\ Charles R Greathouse IV, Sep 09 2012

Crossrefs

Sequence in context: A229947 A132247 A186811 * A356466 A168446 A275467

Adjacent sequences: A038923 A038924 A038925 * A038927 A038928 A038929

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Sep 09 2012

Status

approved