A215612 Odd integers n such that 2^n == 2^10 (mod n).
1, 7, 73, 9271, 3195367, 6769801, 15413863, 24540337, 47424961, 52268743, 146583343, 384586849, 469501471, 475882081, 859764727, 1097475991, 1169323417, 1400034919, 2518532047, 2870143993, 3258854623, 5609707729, 6022970047, 6420870271, 9011348521
Offset: 1
Keywords
Links
- Max Alekseyev, Table of n, a(n) for n = 1..209 (all terms below 10^14)
Programs
-
Mathematica
m = 2^10; Join[Select[Range[1, m, 2], Divisible[2^# - m, #] &], Select[Range[m + 1, 10^7, 2], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 15 2018 *)
Comments