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 A202034 #12 Sep 24 2022 16:19:48
%S A202034 0,0,1,0,2,1,3,0,0,1,4,0,5,3,6,0,6,0,7,1,2,3,8,0,1,4,0,0,9,1,10,0,11,
%T A202034 4,11,0,11,6,3,0,12,1,13,2,3,7,14,0,2,0,15,2,15,0,3,0,5,6,16,0,17,8,0,
%U A202034 0,18,3,18,2,19,2,19,0,20,10,2,4,21,1,21,0,0
%N A202034 Number of distinct prime residues of k^n (mod n), k=0..n-1.
%C A202034 If n is a prime number, a(n) = A000720(n) - 1 because the number of distinct residues of k^n (mod n) = n.
%H A202034 Harvey P. Dale, <a href="/A202034/b202034.txt">Table of n, a(n) for n = 1..1000</a>
%e A202034 a(7) = 3 because k^7 == 0, 1, 2, 3, 4, 5, 6 (mod 7) including 3 prime residues 2, 3, 5.
%p A202034 for n from 1 to 100 do: W:={}:for k from 0 to n-1 do:z:= irem(k^n,n): if type(z,prime)=true then W:=W union {z}:else fi:od: x:=nops(W): printf(`%d, `,x): od:
%t A202034 Table[Length[Select[Union[Table[Mod[k^n, n], {k, 0, n - 1}]], PrimeQ]], {n, 81}] (* _Alonso del Arte_, Dec 10 2011 *)
%t A202034 Count[Union[#],_?PrimeQ]&/@Table[PowerMod[k,n,n],{n,100},{k,0,n-1}] (* _Harvey P. Dale_, Sep 24 2022 *)
%Y A202034 Cf. A000720, A132213, A195637.
%K A202034 nonn
%O A202034 1,5
%A A202034 _Michel Lagneau_, Dec 09 2011