%I #10 Aug 29 2017 22:50:28
%S 1,4,16,40,110,182,336,480,750,1210,1540,2236,2912,3500,4400,5712,
%T 7242,8322,10260,12040,13552,16192,18584,21800,26000,29250,32004,
%U 35728,38860,43090,52576,57728,64328,69020,78960,84360,92796,101764,109720,119720
%N a(n) = Sum_{k=1..n} k*(prime(k) - k).
%H G. C. Greubel, <a href="/A110477/b110477.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = n*(n+1)*(3*prime(n) - 2*n - 1)/6.
%t Table[n*(n + 1)*(3*Prime[n] - 2*n - 1)/6, {n, 1, 50}] (* _G. C. Greubel_, Aug 28 2017 *)
%o (PARI) for(n=1,50, print1(n*(n+1)*(3*prime(n)-2*n-1)/6, ", ")) \\ _G. C. Greubel_, Aug 28 2017
%Y Cf. A000040, A000217, A000330.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Sep 09 2005
|