%I
%S 0,1,34,25,28,11,4,9,12,14,45,31,42,39,24,40,32,3,6,30,26,37,20,29,18,
%T 27,10,21,17,41,44,15,7,23,8,5,16,2,33,35,38,43,36,19,22,13,46,0,1,34,
%U 25,28,11,4,9,12,14,45,31,42,39,24,40,32,3,6,30,26,37,20,29,18,27,10
%N n^7 mod 47.
%t PowerMod[Range[0,100],7,47] (* or *) PadRight[{},100,{0,1,34,25,28,11,4,9,12,14,45,31,42,39,24,40,32,3,6,30,26,37,20,29,18,27,10,21,17,41,44,15,7,23,8,5,16,2,33,35,38,43,36,19,22,13,46}] (* _Harvey P. Dale_, Mar 29 2019 *)
%o (Sage) [power_mod(n,7,47)for n in range(0, 74)] #  _Zerinvary Lajos_, Oct 29 2009
%o (PARI) a(n)=n^7%47 \\ _Charles R Greathouse IV_, Apr 06 2016
%K nonn,easy
%O 0,3
%A _N. J. A. Sloane_, May 13 2002
