A116622 Positive integers n such that 13^n == 2 (mod n).
1, 11, 140711, 863101, 1856455, 115602923, 566411084209, 706836043419179
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[1, 500000], Mod[13^#, #] == 2 &] (* G. C. Greubel, Nov 19 2017 *) Join[{1}, Select[Range[5000000], PowerMod[13, #, #] == 2 &]] (* Robert Price, Apr 10 2020 *)
-
PARI
isok(n) = Mod(13, n)^n == 2; \\ Michel Marcus, Nov 19 2017
Extensions
One more term from Ryan Propper, Jun 11 2006
Term a(1)=1 is prepended and a(7)-a(8) are added by Max Alekseyev, Jun 29 2011
Comments