A115985 Positive n which are not the average of a run of at least 2 consecutive primes.
1, 2, 3, 7, 8, 10, 11, 13, 14, 16, 19, 20, 24, 25, 27, 28, 32, 33, 35, 36, 40, 41, 44, 48, 54, 57, 58, 59, 61, 62, 63, 65, 66, 67, 73, 74, 75, 80, 83, 84, 85, 88, 90, 94, 98, 103, 104, 109, 118, 119, 121, 128, 131, 136, 140, 141, 142, 146, 147, 148, 152, 156, 158
Offset: 1
Keywords
Examples
4=(3+5)/2, so 4 does not belong.
Programs
-
Mathematica
With[{nn=400},Select[Complement[Range[nn],Union[Flatten[ Table[ Select[Mean/@Partition[ Prime[Range[PrimePi[nn]]],n,1],IntegerQ],{n,2,PrimePi[nn]}]]]],#Harvey P. Dale, Apr 08 2012 *)