A259654 a(n) = prime(n)^prime(n) - prime(n)^n.
2, 18, 3000, 821142, 285311509560, 302875101765444, 827240261885926425504, 1978419655660296605560938, 20880467999847912032553880249104, 2567686153161211134561828214310308893183268, 17069174130723235958610643029033906279148329600
Offset: 1
Programs
-
Magma
[NthPrime(n)^NthPrime(n)-NthPrime(n)^n: n in [1..12]]; // Vincenzo Librandi, Jul 03 2015
-
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 *)
-
PARI
a(n,p=prime(n))=p^p - p^n \\ Charles R Greathouse IV, Jul 22 2016