A122531 Primes equal to arithmetic mean of 6 successive primes; or primes in A122040(n).

101, 139, 227, 419, 431, 883, 1021, 1231, 1303, 1433, 1447, 1543, 1583, 1621, 1721, 1993, 2243, 2251, 2351, 2531, 2539, 2591, 2693, 2707, 2713, 2753, 3359, 3461, 3541, 3911, 4091, 4153, 4423, 4447, 5011, 5233, 5527, 5869, 6029, 6091, 6469, 6481, 6569

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Table[Sum[Prime[k], {k, n, n+5}], {n, 1, 1000}]/6, IntegerQ[ #1]&&PrimeQ[ #1]&]
Select[Mean/@Partition[Prime[Range[900]], 6, 1], PrimeQ] (* Harvey P. Dale, Apr 18 2018 *)

Crossrefs

Cf. A122040.

Sequence in context: A358737 A106994 A050672 * A141871 A238503 A050806

Adjacent sequences: A122528 A122529 A122530 * A122532 A122533 A122534

Keyword

nonn

Author

Alexander Adamchuk, Sep 17 2006

Status

approved