[go: up one dir, main page]

login
A038934
Primes p such that 55 is not a square mod p.
1
7, 29, 31, 37, 41, 43, 53, 59, 61, 71, 83, 97, 101, 107, 109, 113, 127, 137, 149, 157, 167, 179, 191, 199, 227, 241, 251, 257, 263, 281, 283, 307, 311, 313, 317, 331, 347, 349, 353, 379, 397, 409, 419, 433, 461
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime@Range[120], JacobiSymbol[55, #] == -1 &] (* Vincenzo Librandi, Sep 09 2012 *)
PROG
(PARI) select(n->!issquare(Mod(55, n)), primes(100)) \\ Charles R Greathouse IV, Sep 09 2012
CROSSREFS
Sequence in context: A261845 A181942 A140447 * A262285 A041088 A107923
KEYWORD
nonn
EXTENSIONS
Offset changed from 0 to 1 by Vincenzo Librandi, Sep 09 2012
STATUS
approved