OFFSET
1,2
FORMULA
a(n) = n^A006450(n).
MATHEMATICA
Table[ n^Prime[ Prime[n]], {n, 7}] (* Robert G. Wilson v, Jun 15 2004 *)
PROG
(PARI) f(n) = for(x=1, n, print1(x^prime(prime(x)), ", "))
(Magma) [n^(NthPrime(NthPrime(n))): n in [1..10]]; // Vincenzo Librandi, Jul 25 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Jun 11 2004
EXTENSIONS
a(8) from Vincenzo Librandi, Jul 25 2015
STATUS
approved