OFFSET
0,4
COMMENTS
Inspired by A007965.
EXAMPLE
For n = 1, a(n) = n^prime(n!) - prime(n!)^n = 1^2 - 2^1 = -1.
MATHEMATICA
Table[n^Prime[n!] - Prime[n!]^n, {n, 0, 4}] (* Michael De Vlieger, Sep 14 2015 *)
PROG
(PARI) a(n) = n^prime(n!) - prime(n!)^n;
vector (6, n, a(n-1))
(Magma) [n^NthPrime(Factorial(n)) - NthPrime(Factorial(n))^n: n in [0..6]]; // Vincenzo Librandi, Sep 15 2015
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Altug Alkan, Sep 14 2015
STATUS
approved