A098137 - OEIS

%I #18 Sep 08 2022 08:45:14

%S 2,12,270,16640,48831250,13060740672,232630514810750,

%T 144115188092633088,8862938119652888516418,

%U 100000000000000000010000000000,191943424957750480504432152962422,8505622499821102144576131693030930382848,4695452425098908797088971409337724910182721066

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

%F a(n) = A000312(n) + A062481(n). - _Michel Marcus_, Aug 27 2015

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

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

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

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

%o (PARI) first(m)=vector(m,i,i^i + i^prime(i)) \\ _Anders Hellström_, Aug 26 2015

%o (Magma) [n^n + n^(NthPrime(n)): n in [1..20]]; // _Vincenzo Librandi_, Aug 27 2015

%Y Cf. A000312, A062481, A089622.

%K nonn

%O 1,1

%A _Parthasarathy Nambi_, Sep 27 2004

%E More terms from _Stefan Steinerberger_, Feb 28 2006

%E a(12)-a(13) from _Vincenzo Librandi_, Aug 27 2015