OFFSET
1,1
MATHEMATICA
Table[Prime[n]^Prime[n] - Prime[n]^n, {n, 1, 10}]
#[[1]]^#[[1]]-#[[1]]^#[[2]]&/@Table[{Prime[n], n}, {n, 15}] (* Harvey P. Dale, Nov 10 2016 *)
PROG
(Magma) [NthPrime(n)^NthPrime(n)-NthPrime(n)^n: n in [1..12]]; // Vincenzo Librandi, Jul 03 2015
(PARI) a(n, p=prime(n))=p^p - p^n \\ Charles R Greathouse IV, Jul 22 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Gutkovskiy, Jul 02 2015
STATUS
approved