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,1

Links

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

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

Cf. A000040, A123096, A127337.

Sequence in context: A295459 A238926 A209908 * A201178 A252216 A281299

Adjacent sequences: A217982 A217983 A217984 * A217986 A217987 A217988

Keyword

nonn

Author

Zak Seidov, Oct 21 2012

Status

approved