OFFSET
1,2
LINKS
MATHEMATICA
m = 5; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Feb 15 2007
EXTENSIONS
1 and 3 added by N. J. A. Sloane, Apr 23 2007
Missing a(10) inserted by Sergey Paramonov, Sep 06 2021
STATUS
approved