%I #18 Oct 22 2012 20:09:58
%S 5009,6047,8039,9311,9497,11171,15137,17029,18869,20983,26339,28627,
%T 31699,35023,38833,43579,49199,49727,50549,60089,68447,72469,76603,
%U 87931,89659,98809,99733,102547,111217,143281,143831,150431,185401,191341,195137,195161
%N Primes that are arithmetical average of 100 consecutive primes.
%H Zak Seidov, <a href="/A217985/b217985.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1) = 5009 because prime(620)+...+prime(719) = 4583+...+5441 = 500900.
%t 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 *)
%Y Cf. A000040, A123096, A127337.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 21 2012