%I #16 Jul 23 2021 05:24:32
%S 2,3,7,14,15,175,855,2695,78127,103974,106695,121975,420210,487375,
%T 1299375,2174655,3895095,4151455,5842215,5951130,6508335,10637055,
%U 20117895,24482958,31999695,32282054,32620203,32872455,34258455
%N Numbers k such that 5^k == -1 (mod k-1).
%H Amiram Eldar, <a href="/A055688/b055688.txt">Table of n, a(n) for n = 1..200</a>
%t Do[If[PowerMod[5, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
%Y Cf. A055685, A055686, A055687, A055689, A055690, A055691, A055692, A055693, A055694, A055695.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jun 09 2000
%E a(22) corrected by _Amiram Eldar_, Jul 23 2021
|