|
%I #16 Sep 08 2022 08:46:14
%S -1,-1,-1,1592126,
%T 383123885216472214589586756787577295904684780483158303
%N a(n) = n^prime(n!) - prime(n!)^n.
%C Inspired by A007965.
%F a(n) = n^A062439(n) - A062439(n)^n.
%e For n = 1, a(n) = n^prime(n!) - prime(n!)^n = 1^2 - 2^1 = -1.
%t Table[n^Prime[n!] - Prime[n!]^n, {n, 0, 4}] (* _Michael De Vlieger_, Sep 14 2015 *)
%o (PARI) a(n) = n^prime(n!) - prime(n!)^n;
%o vector (6, n, a(n-1))
%o (Magma) [n^NthPrime(Factorial(n)) - NthPrime(Factorial(n))^n: n in [0..6]]; // _Vincenzo Librandi_, Sep 15 2015
%Y Cf. A000040, A062439, A007965.
%K sign,easy
%O 0,4
%A _Altug Alkan_, Sep 14 2015
|
