A222531 Primes that are arithmetic mean of 1000000 consecutive primes.

1037646839, 1052209391, 1362370951, 1398573287, 1898007733, 2434995509, 2859960007, 3258342239, 3437945659, 3833019199, 3931289303, 3947997233, 4064930279, 4521550697, 4580647033, 4892254597

Offset: 1

Author

Zak Seidov, Feb 24 2013

Keywords

• nonn

Comments

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.

Crossrefs

Cf. A123086.

Programs

Mathematica

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}]