OFFSET
1,2
COMMENTS
No other terms below 10^15. Some larger terms: 500796684074966733196301. - Max Alekseyev, May 23 2012
MATHEMATICA
m = 19; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zak Seidov, Nov 15 2006
EXTENSIONS
Terms 1, 17 prepended by Max Alekseyev, May 20 2011
a(8)-a(11) from Max Alekseyev, May 23 2012
STATUS
approved