OFFSET
1,1
MATHEMATICA
Select[Prime[Range[700]], PowerMod[# - 1, #, 2*# - 1] == # - 1 &] (* Amiram Eldar, Jul 23 2024 *)
PROG
(Magma) [p: p in PrimesUpTo(5000) | -(p-1)^p mod (2*p-1) eq p];
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 23 2024
STATUS
approved