# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a070676 Showing 1-1 of 1 %I A070676 #10 Sep 08 2022 08:45:06 %S A070676 0,1,0,2,4,0,6,2,0,4,5,0,3,6,0,4,16,0,18,4,0,5,11,0,20,3,0,6,28,0,30, %T A070676 8,0,16,12,0,18,18,0,4,8,0,42,10,0,11,23,0,42,20,0,6,52,0,20,6,0,28, %U A070676 29,0,10,30,0,16,12,0,22,16,0,12,35,0,12,18,0,18,30,0 %N A070676 Smallest m in range 1..phi(n) such that 3^m == 1 mod n, or 0 if no such number exists. %t A070676 Table[SelectFirst[Range[EulerPhi[n]],PowerMod[3,# ,n]==1&,0],{n,80}] (* The program uses the SelectFirst function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 18 2015 *) %o A070676 (Magma) [0] cat [Modorder(3, n): n in [2..100]]; // _Vincenzo Librandi_, Apr 01 2014 %Y A070676 Cf. A070667-A070675, A002326, A053447, A070677, A070681, A070678, A053451, A070679, A070682, A070680, A070683. %K A070676 nonn %O A070676 1,4 %A A070676 _N. J. A. Sloane_ and _Amarnath Murthy_, May 08 2002 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE