OFFSET
1,2
COMMENTS
All prime numbers are in the sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
50 is in the sequence because the residues of the congruence x^50 (mod 50) are {0, 1, 24, 25, 26, 49} and the greatest value is 50 - 1 = 49.
MATHEMATICA
lst := {}; Do[If[Max[Union[PowerMod[Range[0, n - 1], n, n]]] == n - 1, AppendTo[lst, n]], {n, 120}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Oct 13 2011
STATUS
approved