login
A217985
Primes that are arithmetical average of 100 consecutive primes.
1
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,1
EXAMPLE
a(1) = 5009 because prime(620)+...+prime(719) = 4583+...+5441 = 500900.
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 21 2012
STATUS
approved