OFFSET
1,2
COMMENTS
Some larger terms: 4465786944074559659, 1440261542571735083956640176981881665928575750093930787551969
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..708 (contains all terms below 10^15)
MATHEMATICA
lst = {}; Do[ If[ PowerMod[2, 2n - 3, 2n - 1] == 2n - 2, AppendTo[lst, 2n - 1]], {n, 10^9}]; lst (* Robert G. Wilson v, Apr 04 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Mar 15 2006
EXTENSIONS
More terms from Robert G. Wilson v, Apr 04 2006
Terms a(24) onward from Max Alekseyev, Feb 03 2015
b-file corrected and extended by Max Alekseyev, Oct 27 2018
STATUS
approved