This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A365102 #23 Sep 10 2023 15:28:53
%S A365102 1,7,57,70,501,140,2059,1029,4377,1255,13311,1820,26365,5150,27555,
%T A365102 16386,78609,10940,123463,8190,37785,33280,267675,28700,312501,65915,
%U A365102 354295,66950,682893,35140,893731,262145,732105,196525,1031559,142220,1823509,308660
%N A365102 Number of distinct residues of x^n (mod n^5), x=0..n^5-1.
%t A365102 a[n_]:=CountDistinct[Table[PowerMod[x-1,n,n^5],{x,0,n^5-1}]]; Array[a,38] (* _Stefano Spezia_, Aug 24 2023 *)
%o A365102 (PARI) a(n) = #Set(vector(n^5, x, Mod(x-1, n^5)^n));
%o A365102 (Python)
%o A365102 def A365102(n): return len({pow(x,n,n**5) for x in range(n**5)}) # _Chai Wah Wu_, Aug 23 2023
%Y A365102 Cf. A195637, A365099, A365100, A365101, A365103, A365104.
%K A365102 nonn
%O A365102 1,2
%A A365102 _Albert Mukovskiy_, Aug 22 2023