%I #15 Nov 30 2023 17:06:33
%S 1,9,252,16636,48844761,13109538777,232643623525984,
%T 144347831699381856,8863082467484200477785,
%U 100000008863082467484200477785,192043424966613562971631041769596
%N a(n) = Sum_{i=1..n} i^prime(i), where prime(i) denotes i-th prime number.
%H G. C. Greubel, <a href="/A135484/b135484.txt">Table of n, a(n) for n = 1..75</a>
%t f[n_] := Sum[i^Prime@i, {i, n}]; Array[f, 12] (* _Robert G. Wilson v_, Feb 12 2008 *)
%t Accumulate[Table[n^Prime[n],{n,15}]] (* _Harvey P. Dale_, Nov 30 2023 *)
%o (PARI) a(n) = sum(k=1, n, k^prime(k)); \\ _Michel Marcus_, Oct 15 2016
%Y Cf. A000040, A087480.
%Y Partial sums of A062481.
%K nonn
%O 1,2
%A _Ctibor O. Zizka_, Feb 07 2008
%E Edited and extended by _Robert G. Wilson v_, Feb 12 2008
|