login
Sum of next n odd interprimes.
3

%I #7 Mar 30 2012 17:26:04

%S 9,36,153,378,805,1576,2733,3818,5857,8006,10537,14812,19389,23472,

%T 29757,36416,44067,52274,61307,71740,86195,104056,120463,138128,

%U 158209,181160,205973,229728,255013,281608

%N Sum of next n odd interprimes.

%C Sum of next n primes in A007468. Sum of next n integer interprimes in A075673. Sum of next n even interprimes in A075675.

%e a(1) = (7+11)/2 = 9; a(2) = (13+17)/2+(19+23)/2 = 15 + 21 = 36.

%t (* sum of next n odd interprimes*) od=Select[Table[(Prime[i]+Prime[i+1])/2, {i, 2, 2000}], OddQ]; i1 := n(n-1)/2+1; i2 := n(n-1)/2+n; A075674=Table[Sum[od[[i]], {i, i1, i2}], {n, 30}]

%Y Cf. A007468, A075673, A075674, A075675.

%K nonn

%O 1,1

%A _Zak Seidov_, Sep 24 2002