OFFSET
1,1
MATHEMATICA
Select[Table[Count[Table[PowerMod[x, k, k + 1], {x, 1, k - 1}], k], {k, 1, 813}], # >= 2 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert P. P. McKone, May 16 2024
STATUS
approved