OFFSET
1,2
COMMENTS
Some larger terms: 266895924489780149, 2335291686841914329, 18494453435532853111
LINKS
Joe K. Crump, 2^n mod n
MATHEMATICA
m = 10; 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, 2 and 6 added by N. J. A. Sloane, Apr 23 2007
Missing terms a(9)-a(10) added by Max Alekseyev, Dec 16 2013
a(11) from Max Alekseyev, Sep 27 2016
STATUS
approved