[go: up one dir, main page]

login
A038942
Primes p such that 61 is not a square mod p.
1
2, 7, 11, 17, 23, 29, 31, 37, 43, 53, 59, 67, 71, 79, 89, 101, 139, 151, 157, 173, 181, 191, 193, 211, 223, 227, 233, 251, 277, 281, 307, 311, 313, 331, 337, 349, 359, 373, 383, 389, 397, 401, 409, 419, 421, 433
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime@Range[120], JacobiSymbol[61, #] == - 1 &] (* Vincenzo Librandi, Sep 09 2012 *)
PROG
(PARI) select(n->!issquare(Mod(61, n)), primes(100)) \\ Charles R Greathouse IV, Sep 09 2012
CROSSREFS
Sequence in context: A297469 A356190 A168421 * A175283 A124136 A156828
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset changed from 0 to 1 by Vincenzo Librandi, Sep 09 2012
STATUS
approved