OFFSET
1,2
COMMENTS
Some values of m have multiple solutions.
For example, for m = 49, 25^25 == 26^26 (mod 49) and 37^37 == 38^38 (mod 49).
All terms are odd.
EXAMPLE
3 is a term since 1^1 == 2^2 (mod 3).
5 is a term since 11^11 == 12^12 (mod 5).
MATHEMATICA
seqQ[n_] := AnyTrue[Range[LCM[n, CarmichaelLambda[n]]+1], PowerMod[#, #, n] == PowerMod[# + 1, # + 1, n] &]; Select[Range[145], seqQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Owen C. Keith, Mar 01 2021
STATUS
approved