login
a(n) = p^n + n^p where p = prime(n).
0

%I #9 Aug 26 2015 23:38:40

%S 3,17,368,18785,48989176,13065520825,232630924325880,

%T 144115205059418913,8862938121453653757392,

%U 100000000000000420707233300201,191943424957750505912623737696642,8505622499821102144582714636120669969873,4695452425098908797088972334440524350089758134

%N a(n) = p^n + n^p where p = prime(n).

%e a(1) = 2^1 + 1^2 = 3.

%e a(2) = 3^2 + 2^3 = 17.

%e a(3) = 5^3 + 3^5 = 368.

%p a:= n-> (p-> p^n+n^p)(ithprime(n)):

%p seq(a(n), n=1..15); # _Alois P. Heinz_, Aug 26 2015

%t Table[n^Prime[n] + Prime[n]^n, {n, 1, 15}] (* _Stefan Steinerberger_, Feb 28 2006 *)

%K nonn

%O 1,1

%A _Parthasarathy Nambi_, Sep 27 2004

%E More terms from _Stefan Steinerberger_, Feb 28 2006