A380541 a(n) is the multiplicative order of -8 modulo prime(n); a(1) = 0 for completion.

0, 1, 4, 2, 5, 4, 8, 3, 22, 28, 10, 12, 20, 7, 46, 52, 29, 20, 11, 70, 6, 26, 41, 22, 16, 100, 34, 53, 12, 28, 14, 65, 68, 23, 148, 10, 52, 27, 166, 172, 89, 60, 190, 32, 196, 66, 35, 74, 113, 76, 58, 238, 8, 25, 16, 262, 268, 90, 92, 35

Offset: 1

Author

Jianing Song, Jun 27 2025

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A105880 (primes having primitive root -8).

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, A380540, this sequence, A380542, A385222.

Programs

Mathematica

A380541[n_] := If[n == 1, 0, MultiplicativeOrder[-8, Prime[n]]];
Array[A380541, 100] (* Paolo Xausa, Jun 29 2025 *)

PARI

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

Formula

a(n) = ord(-2,p)/gcd(ord(-2,p),3) for p != 2, where p = prime(n), and ord(a,m) is the multiplicative order of a modulo m. Note that ord(-2,p) = A337878(n) for n > 2.