A215611 Odd integers n such that 2^n == 2^8 (mod n).
1, 127, 3473, 19313, 30353, 226703, 230777, 345023, 929783, 1790159, 1878073, 2569337, 3441743, 4213511, 8026103, 9770153, 19139183, 24261623, 30652223, 35482433, 38044223, 40642103, 55015793, 65046479, 67411121, 69601193, 119611073
Offset: 1
Keywords
Links
- Max Alekseyev, Table of n, a(n) for n = 1..859 (all terms below 10^14)
Programs
-
Mathematica
m = 2^8; Join[Select[Range[1, m, 2], Divisible[2^# - m, #] &], Select[Range[m + 1, 10^6, 2], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 12 2018 *)
Comments