OFFSET
1,1
COMMENTS
The corresponding primes are 13, 239, 4091, 1679609, 31381059599, 999999999989, 41943039999999999999999999979, ...
MATHEMATICA
Select[Range[1000], PrimeQ[(#-1)^(#+1)-#] &] (* Stefano Spezia, Mar 30 2025 *)
PROG
(Magma) [k: k in [2..500] | IsPrime((k-1)^(k+1)-k)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Mar 23 2025
EXTENSIONS
a(11) from Michael S. Branicky, Mar 25 2025
STATUS
approved
