OFFSET
1,1
COMMENTS
The next term a(6)=883^884-884^883 has 2605 decimal digits and is too large to display.
MATHEMATICA
Select[Table[n^(n+1)-(n+1)^n, {n, 0, 1000}], PrimeQ] (* Vincenzo Librandi, Jul 18 2012 *)
PROG
(Magma) [a: n in [0..50] | IsPrime(a) where a is n^(n+1)-(n+1)^n ]; // Vincenzo Librandi, Jul 18 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Oct 19 2004
STATUS
approved