%I #5 Nov 21 2013 12:48:47
%S 1,2,3,7,8,10,11,13,14,16,19,20,24,25,27,28,32,33,35,36,40,41,44,48,
%T 54,57,58,59,61,62,63,65,66,67,73,74,75,80,83,84,85,88,90,94,98,103,
%U 104,109,118,119,121,128,131,136,140,141,142,146,147,148,152,156,158
%N Positive n which are not the average of a run of at least 2 consecutive primes.
%e 4=(3+5)/2, so 4 does not belong.
%t With[{nn=400},Select[Complement[Range[nn],Union[Flatten[ Table[ Select[Mean/@Partition[Prime[Range[PrimePi[nn]]],n,1],IntegerQ],{n,2,PrimePi[nn]}]]]],#<nn/2&]] (* _Harvey P. Dale_, Apr 08 2012 *)
%Y Cf. A060863, A115984.
%K nonn
%O 1,2
%A _Giovanni Resta_, Feb 10 2006
|