A385227 Odd multiplicative orders of 4 modulo primes.
1, 3, 5, 9, 11, 5, 7, 23, 29, 33, 35, 9, 39, 41, 11, 51, 53, 7, 65, 69, 15, 81, 83, 89, 95, 99, 105, 37, 113, 29, 119, 25, 131, 135, 35, 47, 51, 155, 15, 21, 173, 179, 183, 189, 191, 209, 43, 73, 221, 231, 233, 239, 243, 245, 83, 251, 261, 273, 281, 57, 293
Offset: 1
Links
- Jianing Song, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Map[MultiplicativeOrder[4, #] &, Prime[Range[200]]], OddQ] (* Paolo Xausa, Jun 28 2025 *)
-
PARI
forprime(p=3, 1e4, z=znorder(Mod(4, p)); if(z%2, print1(z, ", ")))
Comments