|
%I #6 Mar 30 2012 18:35:59
%S 0,1,2,1,4,4,6,1,8,9,10,9,12,11,14,1,16,10,18,16,20,20,22,16,24,25,26,
%T 25,28,25,30,1,32,33,34,28,36,36,38,25,40,36,42,37,44,41,46,33,48,49,
%U 50,48,52,28,54,49,56,57,58,45,60,59,62,1,64,64,66,64,68
%N Greatest residue of x^n (mod n), x=0..n-1.
%C a(n) = 1 if n is of the form 2^p and a(n) = n-1 if n prime.
%e a(18) = 10 because x^18 == 0, 1, 9, 10 (mod 18) => 10 is the greatest residue.
%t Table[Max[Union[PowerMod[Range[0, n - 1], n, n]]], {n, 100}]
%Y Cf. A072994, A195637.
%K nonn
%O 1,3
%A _Michel Lagneau_, Sep 27 2011
|
