A215610 Odd integers n such that 2^n == 2^6 (mod n).
1, 31, 18631, 55831, 92329, 3014633, 3556559, 6429121, 9664591, 12158831, 33554431, 34844431, 566740481, 644903881, 727815241, 842608801, 2207017049, 2208171881, 2445644207, 8694918511, 9031128791, 18738146881, 27345981361, 35476604081
Offset: 1
Keywords
Links
- Max Alekseyev, Table of n, a(n) for n = 1..102 (all terms below 10^14)
Programs
-
Mathematica
m = 64; Join[Select[Range[1, m, 2], Divisible[2^# - m, #] &], Select[Range[m + 1, 10^6, 2], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
Comments