A116638 Positive integers n such that 13^n == 11 (mod n).
1, 2, 158, 301823, 1851103, 8616098, 60528467, 1087582634, 1628818307, 16205558969
Offset: 1
Crossrefs
Programs
-
Mathematica
Join[{1, 2}, Select[Range[1, 9000], Mod[13^#, #] == 11 &]] (* G. C. Greubel, Nov 20 2017 *) Join[{1, 2}, Select[Range[10000000], PowerMod[13, #, #] == 11 &]] (* Robert Price, Apr 10 2020 *)
Extensions
More terms from Ryan Propper, Jan 11 2008
Edited by Max Alekseyev, May 04 2010
Comments