%I #46 Feb 07 2020 13:35:04
%S 3,9299,31903,50963,87043,115918,116891,219827,241043,394243,550243,
%T 617503,760243,806623,1029253,1050787,1458083,1642798,1899458,2864755,
%U 3205387,3588115,3839363,4164578,5041223,5610583,5834755,5977555,7837903,8005558,8067433,8128823,9007603,9298903,9449113,9617443,9835843
%N Numbers n such that 3^(n - 3) is congruent to 1 modulo n.
%H Daniel Starodubtsev, <a href="/A242865/b242865.txt">Table of n, a(n) for n = 1..372</a> (terms 1..163 from Felix Fröhlich)
%t Select[Range[10^4], Mod[3^(# - 3), #] == 1 &] (* _Alonso del Arte_, May 27 2014 *)
%o (PARI) for(n=3, 10^6, if(Mod(3, n)^(n-3)==1, print1(n, ", ")))
%Y Cf. A067945, A173572.
%Y Intersection with A033553 gives A277344.
%K nonn
%O 1,1
%A _Felix Fröhlich_, May 24 2014
|