A217985 Primes that are arithmetical average of 100 consecutive primes.

5009, 6047, 8039, 9311, 9497, 11171, 15137, 17029, 18869, 20983, 26339, 28627, 31699, 35023, 38833, 43579, 49199, 49727, 50549, 60089, 68447, 72469, 76603, 87931, 89659, 98809, 99733, 102547, 111217, 143281, 143831, 150431, 185401, 191341, 195137, 195161

Offset: 1

Author

Zak Seidov, Oct 21 2012

Keywords

• nonn

Examples

			a(1) = 5009 because  prime(620)+...+prime(719) = 4583+...+5441 = 500900.
		

Links

• Zak Seidov, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A123096, A127337.

Programs

Mathematica

h = 100; t = {}; s = Prime[Range[h]]; pCnt = h; Do[sm = Total[s]; If[Mod[sm, h] == 0 && PrimeQ[sm/h], AppendTo[t, sm/h]]; pCnt++; s = Append[Rest[s], Prime[pCnt]], {20000}]; t (* T. D. Noe, Oct 22 2012 *)