OFFSET
1,1
EXAMPLE
1 == 3^4 (mod 2^4) which is less than 3 == 3^3 (mod 2^3) so 4 is a term.
MATHEMATICA
pm = 0; lst = {}; Do[pn = PowerMod[3, n, 2^n]; If[pn < pm, AppendTo[lst, n]]; pm = pn, {n, 221}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 14 2006
STATUS
approved