%I #11 Oct 14 2014 06:08:53
%S 1,2,1,2,6,2,6,5,2,4,6,4,16,6,9,6,5,22,2,4,18,6,14,3,8,10,16,6,36,9,4,
%T 20,6,42,5,22,46,4,42,16,4,52,18,6,18,14,29,30,3,6,16,10,22,16,22,5,6,
%U 72,36,9,30,4,39,54,20,82,6,42,14,10,44,12,22,6,46,8,96,42,30,25,16
%N Haupt-exponents of 5 modulo integers relatively prime to 5.
%H R. J. Mathar, <a href="/A050977/b050977.txt">Table of n, a(n) for n = 1..7999</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MultiplicativeOrder.html">Multiplicative Order</a>
%p n := 1 :
%p for i from 2 to 10000 do
%p if igcd(i,5) = 1 then
%p printf("%d %d\n",n,numtheory[order](5,i)) ;
%p n := n+1 ;
%p end if;
%p end do: # _R. J. Mathar_, Oct 14 2014
%Y Cf. A002326 (base 2), A050975 (base 3), A002329.
%K nonn
%O 1,2
%A _Eric W. Weisstein_