|
%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
| 