login
A115985
Positive n which are not the average of a run of at least 2 consecutive primes.
1
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,2
EXAMPLE
4=(3+5)/2, so 4 does not belong.
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]}]]]], #<nn/2&]] (* Harvey P. Dale, Apr 08 2012 *)
CROSSREFS
Sequence in context: A054996 A338691 A129341 * A131210 A088340 A288696
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 10 2006
STATUS
approved