OFFSET
1,2
COMMENTS
A larger term: 15237454403219419167053498809.
MATHEMATICA
m = 7; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^7], PowerMod[2, #, #] == m &]] (* Robert Price, Sep 26 2018 *)
PROG
(PARI) isok(n) = Mod(2, n)^n == 7; \\ Michel Marcus, Sep 27 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Joe K. Crump (joecr(AT)carolina.rr.com)
EXTENSIONS
Terms 1, 5 prepended by Max Alekseyev, May 18 2011
a(9) added by Max Alekseyev, May 21 2011
a(10) from Max Alekseyev, Jun 17 2012
STATUS
approved