A051446 Integers n such that 2^n == 13 (mod n).

1, 11, 95, 4834519, 156203641, 135466795859, 182901372149135

Offset

1,2

Comments

No other terms below 10^15.

Larger terms: 1910102794991114096035717. - Max Alekseyev, May 18 2011

Links

Table of n, a(n) for n=1..7.

Mathematica

m = 13; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)

Crossrefs

Cf. A033981, A033982, A033983.

Sequence in context: A326349 A318599 A347479 * A271632 A055286 A081041

Adjacent sequences: A051443 A051444 A051445 * A051447 A051448 A051449

Keyword

hard,nonn,more

Author

Joe K. Crump (joecr(AT)carolina.rr.com)

Extensions

Terms 1, 11 prepended by Max Alekseyev, May 18 2011

a(7) added by Sergey Paramonov, Sep 05 2021

Status

approved