A038882 Primes that are not in A038881.
2, 3, 13, 17, 23, 29, 31, 41, 47, 59, 61, 67, 71, 73, 101, 103, 109, 149, 163, 173, 179, 191, 193, 197, 199, 223, 233, 241, 251, 277, 281, 293, 311, 331, 337, 349, 367, 373, 379, 383, 409, 419, 443, 457, 461, 463
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime@Range[120], JacobiSymbol[11, #] == -1 &] (* Vincenzo Librandi, Sep 08 2012 *)
-
PARI
isok(p) = isprime(p) && !((p%2) && issquare(Mod(11, p))); \\ Michel Marcus, Jul 04 2023
Extensions
Offset changed from 0 to 1 by Vincenzo Librandi, Sep 08 2012
Definition edited by N. J. A. Sloane, Jul 04 2023
Comments