%I
%S 5,6,7,13,17,171,174,378
%N Numbers n such that (n1)^(n+1)  n^n 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
