|
%I #10 Mar 30 2012 18:35:59
%S 1,9,10,15,21,25,26,27,33,34,35,39,45,49,50,51,55,57,58,63,65,69,74,
%T 75,77,81,82,85,87,91,93,95,99,105,106,111,115,117,119,121,122,123,
%U 125,129,130,133,135,141,143,145,146,147,153,155,159,161,165,169,170
%N Nonprime numbers n such that the greatest residue of the congruence x^n (mod n) equals n-1 where x = 0..n-1.
%C Subset of A196499.
%C For all primes n, the greatest residue of the congruence x^n (mod n) where x = 0..n-1 equals n-1.
%e 50 is in the sequence because the residues of the congruence x^50 (mod 50) are { 0, 1, 24, 25, 26, 49} and the greatest value is 50 - 1 = 49.
%p with(numtheory):T:=array(1..170): for n from 1 to 170 do:for k from 1 to n do:T[k]:=irem(k^n,n):od:W:=convert(T,set):x:=nops(W):if type(n,prime) = false and W[x]= n-1 then printf(`%d, `,n):else fi:od:
%Y Cf. A196499, A196082.
%K nonn
%O 1,2
%A _Michel Lagneau_, Oct 13 2011
|
