A116620 Positive integers n such that 13^n == 10 (mod n).
1, 3, 9, 74853, 1275039, 27181907, 31261887, 989255061, 4813809711, 3187842157567, 313768710194691
Offset: 1
Crossrefs
Programs
-
Mathematica
Join[{1, 3, 9}, Select[Range[2000000], PowerMod[13, #, #] == 10 &]] (* Robert Price, Apr 10 2020 *)
Extensions
More terms from Ryan Propper, Jun 12 2006
Terms 1,3,9 prepended and a(10)-a(11) added by Max Alekseyev, Jun 29 2011, Nov 06 2018
Comments