OFFSET
1,2
LINKS
MATHEMATICA
m = 12; 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
More terms from Ryan Propper, Mar 23 2007
1, 2, 4 and 5 added by N. J. A. Sloane, Apr 23 2007
a(13)-a(15) from Max Alekseyev, May 19 2011
a(15) corrected, a(16)-a(18) added by Max Alekseyev, Oct 02 2016
STATUS
approved