login
A382370
Numbers k such that (k - 1)^(k + 1) - k is prime.
0
3, 4, 5, 7, 10, 11, 21, 46, 59, 839, 21920
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
Sequence in context: A048342 A159560 A288427 * A030502 A201025 A288451
KEYWORD
nonn,more
AUTHOR
EXTENSIONS
a(11) from Michael S. Branicky, Mar 25 2025
STATUS
approved