login
Primes that are arithmetical average of 100 consecutive primes.
1

%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