A038879 10 is a square mod p.
2, 3, 5, 13, 31, 37, 41, 43, 53, 67, 71, 79, 83, 89, 107, 151, 157, 163, 173, 191, 197, 199, 227, 239, 241, 271, 277, 281, 283, 293, 307, 311, 317, 347, 359, 373, 397, 401, 409, 431, 439, 443, 449, 467, 479, 521
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[100]], JacobiSymbol[10, #] != -1 &] (* Vincenzo Librandi, Sep 07 2012 *)
Comments