This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A217985 #18 Oct 22 2012 20:09:58
%S A217985 5009,6047,8039,9311,9497,11171,15137,17029,18869,20983,26339,28627,
%T A217985 31699,35023,38833,43579,49199,49727,50549,60089,68447,72469,76603,
%U A217985 87931,89659,98809,99733,102547,111217,143281,143831,150431,185401,191341,195137,195161
%N A217985 Primes that are arithmetical average of 100 consecutive primes.
%H A217985 Zak Seidov, <a href="/A217985/b217985.txt">Table of n, a(n) for n = 1..1000</a>
%e A217985 a(1) = 5009 because prime(620)+...+prime(719) = 4583+...+5441 = 500900.
%t A217985 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 A217985 Cf. A000040, A123096, A127337.
%K A217985 nonn
%O A217985 1,1
%A A217985 _Zak Seidov_, Oct 21 2012