%I #9 Feb 09 2021 02:43:26
%S 1,1353,1354,15453,15454,16806,16808,18160,18161,32260,32261,33613,
%T 33615,34967,34968,49067,49068,50420,50422,51774,51775,65874,65875,
%U 67227,67229,68581,68582,82681,82682,84034,84036,85388,85389,99488
%N Numbers k such that k^6 == 1 (mod 7^5).
%t x=7; Select[ Range[ 200000 ], PowerMod[ #, x-1, x^5 ]==1& ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 08 2000
|