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,1

Comments

Primes of the form A001043(k)/8.

Links

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

Example

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

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

Crossrefs

Cf. A000040, A118134, A163487.

Sequence in context: A088798 A027272 A337648 * A106875 A215646 A182353

Adjacent sequences: A164129 A164130 A164131 * A164133 A164134 A164135

Keyword

nonn

Author

Juri-Stepan Gerasimov, Aug 11 2009

Extensions

Extended by R. J. Mathar, Aug 27 2009

Status

approved