A038954 Primes p such that 70 is not a square mod p.

13, 19, 29, 41, 43, 47, 59, 67, 71, 79, 89, 103, 107, 109, 113, 131, 137, 139, 149, 151, 157, 163, 167, 173, 191, 193, 223, 233, 239, 241, 251, 293, 337, 347, 359, 367, 383, 389, 397, 409, 419, 421, 431, 443, 457

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A094105 A073620 A089391 * A005106 A120140 A101849

Adjacent sequences: A038951 A038952 A038953 * A038955 A038956 A038957

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

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

Status

approved