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

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

Offset: 1

Author

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

Keywords

• hard
• nonn
• more

Comments

No other terms below 10^15.

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

Crossrefs

Cf. A033981, A033982, A033983.

Programs

Mathematica

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

Extensions

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

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