login
Sum of the prime(n) primes following prime(n).
0

%I #5 Nov 21 2013 12:48:23

%S 8,23,67,143,353,527,905,1187,1751,2785,3287,4691,5843,6589,7947,

%T 10157,12661,13787,16715,18941,20325,23889,26643,30771,36501,39861,

%U 41937,45581,47801,51749,64743,69357,76161,79093,90677,93855,101769,110069

%N Sum of the prime(n) primes following prime(n).

%e a(3) = 7 + 11 + 13 + 17 + 19 = 67 since p_3 = 5 and the sum of the next 5 prime numbers after 5 is 67.

%t list = {}; For[x = 1, x < 100 (*change this value to get more terms*), x++, AppendTo[list, Sum[Prime[n], {n, x + 1, x + Prime[x]}]]]; list

%t f[n_]:=Module[{pn=Prime[n]},Total[Prime[Range[n+1,n+pn]]]]; f/@Range[50] (* _Harvey P. Dale_, Mar 12 2011 *)

%K nonn

%O 1,1

%A Matthew Howells (mathmatt(AT)gmail.com), Nov 16 2004