A123047 Numbers k that divide 5^k + 4.
1, 3, 129, 60767, 76433163, 454034821, 26675718567, 164304369911289
Offset: 1
Crossrefs
Programs
-
Mathematica
Do[ If[ PowerMod[5, 2n - 1, 2n - 1] + 5 == 2n, Print[2n - 1]], {n, 10^9}] (* Robert G. Wilson v *)
-
PARI
is(n)=Mod(5,n)^n==-4 \\ Charles R Greathouse IV, Nov 04 2016
Extensions
a(4) and a(5) from Robert G. Wilson v, Nov 14 2006
a(7) from Ryan Propper, Mar 23 2007
a(8) from Max Alekseyev, Oct 17 2016
Comments