OFFSET
1,2
COMMENTS
Some larger terms: 576541379659648320485
EXAMPLE
2^45 = 17 + 45*781874935307,
2^99 = 17 + 99*6402275758728431320690420229.
MATHEMATICA
m = 17; Join[Select[Range[m], Divisible[2^# - m, #] &],
Select[Range[m + 1, 10^6], PowerMod[2, #, #] == m &]] (* Robert Price, Oct 08 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 14 2006
EXTENSIONS
Terms 1, 3, 5, 9 prepended by Max Alekseyev, May 20 2011
a(11)-a(21) from Max Alekseyev, May 25 2012
STATUS
approved