|
|
A125949
|
|
Numbers k that divide 5^k - 4.
|
|
8
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
a(1) = 1; Do[ If[ PowerMod[5, 2n - 1, 2n - 1] - 4 == 0, Print[2n - 1]], {n, 10^9}]
|
|
PROG
|
|
|
CROSSREFS
|
Solutions to 5^n == k (mod n): A067946 (k=1), A015951 (k=-1), A124246 (k=2), A123062 (k=-2), A123061 (k=3), A123052 (k=-3), this sequence (k=4), A123047 (k=-4), A123091 (k=5), A015891 (k=-5), A277350 (k=6), A277348 (k=-6).
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|