%I #7 Jun 12 2017 19:06:39
%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
|