%I #24 Aug 05 2015 11:51:41
%S -1,-1,118,13983,48667074,13055867207,232630103648534,
%T 144115171092292831,8862938117851348434466,
%U 99999999999999579292766699799,191943424957750455095669944886980,8505622499821102144569548732108989899311
%N a(n) = n^prime(n) - prime(n)^n.
%H Matthew House, <a href="/A007965/b007965.txt">Table of n, a(n) for n = 1..96</a>
%e a(3) = 3^5 - 5^3 = 243 - 125 = 118.
%e a(4) = 16384 - 2401 = 13983.
%t lst={};Do[p=Prime[n];AppendTo[lst, n^p-p^n], {n, 4!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 19 2008 *)
%o (PARI) vector(13, n, n^prime(n) - prime(n)^n) \\ _Michel Marcus_, Aug 05 2015
%Y Cf. A000312, A051674.
%K sign
%O 1,3
%A Dennis S. Kluk (mathemagician(AT)ameritech.net)
%E More terms from _Labos Elemer_, Jul 09 2001