OFFSET
1,2
COMMENTS
No other terms below 10^14.
LINKS
MATHEMATICA
m = 15; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^3], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Joe K. Crump (joecr(AT)carolina.rr.com)
EXTENSIONS
One more term from Joe K. Crump (joecr(AT)carolina.rr.com), Jun 20 2000
Edited by N. J. A. Sloane, Jul 03 2008 at the suggestion of R. J. Mathar
Terms 1, 13 prepended by Max Alekseyev, May 18 2011
a(10) from Max Alekseyev, Dec 15 2013
STATUS
approved