OFFSET
1,1
COMMENTS
Next term too large to be included (1652 digits)
EXAMPLE
3^2-2^1 = 9-2 = 7.
MAPLE
P:=proc(i) local a, n; for n from 2 by 1 to i do a:=n^(n-1)-(n-1)^(n-2); if isprime(a) then print(a); fi; od; end: P(2000);
MATHEMATICA
Select[Table[(n + 1)^n - n^(n - 1), {n, 1000}], PrimeQ] (* Michael De Vlieger, Apr 22 2015 *)
PROG
(PARI) select(isprime, vector(9, n, (n+1)^n-n^(n-1))) \\ Charles R Greathouse IV, Apr 22 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paolo P. Lava & Giorgio Balzarotti, Mar 18 2009
STATUS
approved