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 A219478 #14 Nov 22 2012 05:08:46 %S A219478 79,281,349,439,643,677,787,887,1171,1327,1733,1811,2141,2347,2389, %T A219478 2767,2791,3323,3329,3529,3929,4157,4349,4751,4799,4919,4951,5003, %U A219478 5189,5323,5347,5521,5531,5857,5861,6287,6337,6473,6823,6967,6997,7507,7933,8233 %N A219478 Prime numbers that are the mean of 5 successive primes. %H A219478 Zak Seidov, <a href="/A219478/b219478.txt">Table of n, a(n) for n = 1..1000</a> %e A219478 a(1) = 79 = (prime(20)+...+prime(24))/5 = (71+ 73+ 79+ 83+ 89)/5 %e A219478 a(2) = 281 = (prime(58)+...+prime(62))/5 = (271+ 277+ 281+ 283+ 293)/5 %e A219478 a(8) = 887 = (prime(151)+...+prime(155))/5 = (877+ 881+ 883+ 887+ 907)/5 %t A219478 Select[(Mean /@ Partition[Prime[Range[1000]], 5, 1]), PrimeQ] %Y A219478 Cf. A082077, A219505. %K A219478 nonn %O A219478 1,1 %A A219478 _Zak Seidov_, Nov 20 2012