A329222 Numbers m that divide 5^(m + 1) + 1.
1, 2, 6, 13, 14, 174, 854, 2694, 78126, 103973, 106694, 121974, 420209, 487374, 1299374, 2174654, 3895094, 4151454, 5842214, 5951129, 6508334, 10637054, 20117894, 24482957, 31999694, 32282053, 32620202, 32872454, 34258454, 52657397, 56114618, 57679082, 65538437, 70782774, 71899526
Offset: 1
Keywords
Crossrefs
Programs
-
Magma
[n + 1: n in [0..2000000] | Modexp(5, n + 2, n + 1) eq n];
-
Mathematica
Select[Range[719*10^5],PowerMod[5,#+1,#]==#-1&] (* Harvey P. Dale, Jul 03 2020 *)
-
PARI
isok(m) = Mod(5, m)^(m+1) == -1; \\ Jinyuan Wang, Nov 16 2019
Comments