A385221 Primes p such that multiplicative order of 4 modulo p is odd.
3, 7, 11, 19, 23, 31, 43, 47, 59, 67, 71, 73, 79, 83, 89, 103, 107, 127, 131, 139, 151, 163, 167, 179, 191, 199, 211, 223, 227, 233, 239, 251, 263, 271, 281, 283, 307, 311, 331, 337, 347, 359, 367, 379, 383, 419, 431, 439, 443, 463, 467, 479, 487, 491, 499, 503, 523, 547, 563
Offset: 1
Links
- Jianing Song, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Prime[Range[200]], OddQ[MultiplicativeOrder[4, #]] &] (* Paolo Xausa, Jun 28 2025 *)
-
PARI
isA385221(p) = isprime(p) && (p!=2) && znorder(Mod(4,p))%2
Comments