|
%I #24 Sep 08 2022 08:46:13
%S 2,18,3000,821142,285311509560,302875101765444,827240261885926425504,
%T 1978419655660296605560938,20880467999847912032553880249104,
%U 2567686153161211134561828214310308893183268,17069174130723235958610643029033906279148329600
%N a(n) = prime(n)^prime(n) - prime(n)^n.
%F a(n) = A051674(n) - A062457(n).
%t Table[Prime[n]^Prime[n] - Prime[n]^n, {n, 1, 10}]
%t #[[1]]^#[[1]]-#[[1]]^#[[2]]&/@Table[{Prime[n],n},{n,15}] (* _Harvey P. Dale_, Nov 10 2016 *)
%o (Magma) [NthPrime(n)^NthPrime(n)-NthPrime(n)^n: n in [1..12]]; // _Vincenzo Librandi_, Jul 03 2015
%o (PARI) a(n,p=prime(n))=p^p - p^n \\ _Charles R Greathouse IV_, Jul 22 2016
%Y Cf. A062481, A051674.
%K nonn,easy
%O 1,1
%A _Ilya Gutkovskiy_, Jul 02 2015
|
