%I #8 Jul 26 2023 16:42:03
%S 1,3,9,27,81,17,51,40,7,21,63,76,2,6,18,54,49,34,102,80,14,42,13,39,4,
%T 12,36,108,98,68,91,47,28,84,26,78,8,24,72,103,83,23,69,94,56,55,52,
%U 43,16,48,31,93,53,46,25,75,112
%N 3^n mod 113.
%D I. M. Vinogradov, Elements of Number Theory, pp. 220 ff.
%p [ seq(primroot(ithprime(i))^j mod ithprime(i),j=0..100) ];
%t PowerMod[3,Range[0,80],113] (* _Harvey P. Dale_, Jul 26 2023 *)
%o (PARI) a(n)=lift(Mod(3,113)^n) \\ _Charles R Greathouse IV_, Mar 22 2016
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_.