%I #11 Sep 05 2024 11:50:24
%S 5,6,7,13,17,171,174,378,17641
%N Numbers k such that (k-1)^(k+1) - k^k is prime.
%C No more terms up to 10000. - _Rick L. Shepherd_, May 16 2008
%e 12^14 - 13^13 = 981043357956611, which is prime, so 13 is in the list.
%t Select[Table[n,{n,5,400}],PrimeQ[(#-1)^(#+1)-#^#]&] (* _Vladimir Joseph Stephan Orlovsky_, Mar 03 2011*)
%K hard,more,nonn
%O 1,1
%A _Carl R. White_, Feb 05 2008
%E a(9) from _Michael S. Branicky_, Sep 05 2024