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

Author

Alexander Adamchuk, Sep 17 2006

Keywords

• nonn

Links

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

Crossrefs

Cf. A122040.

Programs

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 *)