A164132 Primes which are an eighth of the sum of two consecutive primes.

3, 19, 59, 89, 109, 149, 151, 317, 331, 359, 389, 401, 439, 571, 599, 829, 941, 953, 1019, 1153, 1249, 1279, 1319, 1373, 1381, 1451, 1657, 1669, 1733, 1741, 1867, 1871, 1973, 2131, 2161, 2179, 2251, 2459, 2819, 3119, 3539, 3659, 3967, 4001, 4099, 4231, 4261

Offset: 1

Author

Juri-Stepan Gerasimov, Aug 11 2009

Keywords

• nonn

Comments

Primes of the form A001043(k)/8.

Examples

			19 is there because it is prime and 19=(73+79)/8.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A118134, A163487.

Programs

Maple

p:= 2: R:= NULL: count:= 0:
while count < 100 do
 q:= p; p:= nextprime(p);
 v:= (q+p)/8;
 if v::integer and isprime(v) then
   R:= R,v; count:= count+1;
 fi;
od:
R; # Robert Israel, Dec 08 2024

Mathematica

Select[Total[#]/8&/@Partition[Prime[Range[2500]],2,1],PrimeQ]  (* Harvey P. Dale, Apr 22 2011 *)

Extensions

Extended by R. J. Mathar, Aug 27 2009