

A327943


Numbers m that divide 6^m + 5.


6



1, 11, 341, 186787, 8607491, 9791567, 11703131, 14320387, 50168819, 952168003, 71654478989, 1328490399527
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

Conjecture: For k > 1, k^m == 1  k (mod m) has infinitely many positive solutions.
Also includes 11834972807906571233 = 31*381773316384082943.  Robert Israel, Oct 03 2019


LINKS



MATHEMATICA

Join[{1}, Select[Range[98*10^5], PowerMod[6, #, #]==#5&]] (* The program generates the first six terms of the sequence. To generate more, increase the Range constant but the program may take a long time to run. *) (* Harvey P. Dale, Feb 05 2022 *)


PROG

(Magma) [1] cat [n: n in [1..10^8]  Modexp(6, n, n) + 5 eq n];


CROSSREFS



KEYWORD

nonn,more


AUTHOR



EXTENSIONS



STATUS

approved



