%I

%S 2,5,6,7,8,9,14,37,81,143,302

%N Numbers n such that n^(n+1)+(n+1)^n-n(n+1) is prime.

%t Do[If[PrimeQ[n^(n+1)+(n+1)^n-n(n+1)], Print[n]], {n, 1000}]

%o (PARI) is(n)=ispseudoprime(n^(n+1)+(n+1)^n-n*(n+1)) \\ _Charles R Greathouse IV_, Jun 12 2017

%Y Cf. A072179, A073499.

%K more,nonn

%O 1,1

%A _Farideh Firoozbakht_, Jul 13 2003