A105879 -id:A105879 - cp's OEIS frontend

A167803 Numbers with primitive root -7.

2, 3, 5, 6, 9, 10, 13, 17, 18, 26, 27, 31, 34, 41, 47, 54, 59, 61, 62, 81, 82, 83, 89, 94, 97, 101, 103, 118, 122, 131, 139, 162, 166, 167, 169, 173, 178, 194, 199, 202, 206, 227, 229, 241, 243, 251, 257, 262, 269, 271, 278, 283, 289, 293, 307, 334, 338, 346, 349

Offset: 1

T. D. Noe, Nov 12 2009

nonn

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

Cf. A105879 (primes with primitive root -7)

pr=-7; Select[Range[2,2000], MultiplicativeOrder[pr,# ] == EulerPhi[ # ] &]

A380540 a(n) is the multiplicative order of -7 modulo prime(n); a(4) = 0 for completion.

Original entry on oeis.org

1, 2, 4, 0, 5, 12, 16, 6, 11, 14, 30, 18, 40, 3, 46, 13, 58, 60, 33, 35, 24, 39, 82, 88, 96, 100, 102, 53, 54, 7, 63, 130, 68, 138, 37, 75, 52, 81, 166, 172, 89, 12, 5, 24, 49, 198, 105, 74, 226, 228, 116, 119, 240, 250, 256, 131, 268, 270, 69, 20

Offset: 1

Jianing Song, Jun 27 2025

Jianing Song, Table of n, a(n) for n = 1..10000

Cf. A105879 (primes having primitive root -7).
Cf. bases 2..10: A014664, A062117, A082654, A211241, A211242, A211243, A211244, A211245, A002371.
Cf. bases -2..-10: A337878 (if first term 1), A380482, A380531, A380532, A380533, this sequence, A380541, A380542, A385222.

A380540[n_] := If[n == 4, 0, MultiplicativeOrder[-7, Prime[n]]];
Array[A380540, 100] (* Paolo Xausa, Jun 29 2025 *)

a(n,{k=-7}) = my(p = prime(n)); if(k%p==0, 0, znorder(Mod(k,p)))

cp's OEIS Frontend

A167803 Numbers with primitive root -7.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica