A125949 Numbers k that divide 5^k - 4.
1, 4769, 8563651, 300414792131, 2353957351049, 15960089894129, 452045914836301, 657236915690111
Offset: 1
Crossrefs
Programs
-
Mathematica
a(1) = 1; Do[ If[ PowerMod[5, 2n - 1, 2n - 1] - 4 == 0, Print[2n - 1]], {n,10^9}]
-
PARI
is(n)=Mod(5,n)^n==4 \\ Charles R Greathouse IV, May 15 2013
Extensions
a(4)-a(8) from Max Alekseyev, Jun 09 2010, Oct 17 2016
Comments