%I #8 Feb 25 2013 14:59:45
%S 1037646839,1052209391,1362370951,1398573287,1898007733,2434995509,
%T 2859960007,3258342239,3437945659,3833019199,3931289303,3947997233,
%U 4064930279,4521550697,4580647033,4892254597
%N Primes that are arithmetic mean of 1000000 consecutive primes.
%C Subsequence of A123086. Positions of primes in A123086: 41, 58, 82, 87, 102, 104, 141, 145, 187, 232, 270, 302, 323, 364, 366, 367, 380, 410, 415, 453.
%t s = 7472966967499; a = 2; b = 15485863; Do[s = s - a + (b = NextPrime[b]); a = NextPrime[a]; If[PrimeQ[p = s/10^6], Print[p]], {10^8}]
%Y Cf. A123086.
%K nonn
%O 1,1
%A _Zak Seidov_, Feb 24 2013
|