|
%I
%S 1,1,6,1,2,6,16,18,6,22,3,28,15,2,3,6,5,21,46,42,16,13,18,58,60,6,33,
%T 22,35,8,6,13,9,41,28,44,6,15,96,2,4,34,53,108,3,112,6,48,22,5,42,21,
%U 130,18,8,46,46,6,42,148,75,16,78,13,66,81,166,78,18,43,58,178,180,60
%N Multiplicative order of 10 mod n, where gcd(n, 10) = 1.
%t MultiplicativeOrder[10, #] & /@ Select[ Range@ 190, GCD[10, #] == 1 &] (* Robert G. Wilson v, Apr 05 2011 *)
%Y Cf. A002329. [From _R. J. Mathar_, Oct 13 2008]
%K nonn
%O 1,3
%A _David W. Wilson_
|
