cp's OEIS Frontend

A050975 Haupt-exponents of 3 modulo integers relatively prime to 3.

%I A050975 #14 Feb 16 2025 08:32:41
%S A050975 1,2,4,6,2,4,5,3,6,4,16,18,4,5,11,20,3,6,28,30,8,16,12,18,18,4,8,42,
%T A050975 10,11,23,42,20,6,52,20,6,28,29,10,30,16,12,22,16,12,35,12,18,18,30,
%U A050975 78,4,8,41,16,42,10,88,6,22,23,36,48,42,20,100,34,6,52,53,27,20,12
%N A050975 Haupt-exponents of 3 modulo integers relatively prime to 3.
%H A050975 R. J. Mathar, <a href="/A050975/b050975.txt">Table of n, a(n) for n = 1..1000</a>
%H A050975 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MultiplicativeOrder.html">Multiplicative Order</a>
%p A050975 A001651 := proc(n)
%p A050975         (3*(2*n-1)-(-1)^n)/4 ;
%p A050975 end proc:
%p A050975 A050975 := proc(n)
%p A050975         local gcd3 ;
%p A050975         gcd3 := A001651(n+1);
%p A050975         numtheory[order](3,gcd3) ;
%p A050975 end proc: # _R. J. Mathar_, Oct 21 2012
%Y A050975 Cf. A002326, A002329, A053446.
%K A050975 nonn
%O A050975 1,2
%A A050975 _Eric W. Weisstein_