%I #9 May 17 2023 16:40:59

%S 1,182,443,624,626,807,1068,1249,1251,1432,1693,1874,1876,2057,2318,

%T 2499,2501,2682,2943,3124,3126,3307,3568,3749,3751,3932,4193,4374,

%U 4376,4557,4818,4999,5001,5182,5443,5624,5626,5807,6068,6249,6251,6432,6693

%N Numbers k such that k^4 == 1 (mod 5^4).

%H Amiram Eldar, <a href="/A056091/b056091.txt">Table of n, a(n) for n = 1..10000</a>

%t x=5; Select[ Range[ 10000 ], PowerMod[ #, x-1, x^4 ]==1& ]

%t Select[Range[10000],PowerMod[#,4,625]==1&] (* _Harvey P. Dale_, May 17 2023 *)

%Y Cf. A056092, A056094, A056095.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Jun 08 2000