%I #6 Nov 21 2012 19:33:09
%S 79,281,295,329,349,355,403,439,511,643,677,685,787,805,841,887,949,
%T 963,1171,1179,1195,1241,1327,1339,1397,1435,1463,1503,1547,1641,1685,
%U 1717,1733,1779,1811,1917,1957,1991,2033,2061,2141,2147,2347,2389,2395,2433
%N Numbers that are arithmetic mean of 5 successive primes.
%H Zak Seidov, <a href="/A219505/b219505.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1) = A219478(1) = 79 = (prime(20)+...+prime(24))/5 = (71+ 73+ 79+ 83+ 89)/5.
%t Select[(Mean /@ Partition[Prime[Range[1000]], 5, 1]), IntegerQ]
%Y A219478 is subsequence.
%K nonn
%O 1,1
%A _Zak Seidov_, Nov 21 2012
|