A158713 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A158713

Primes p such that p1=Ceiling[p/2]+p is prime and p2=Ceiling[p1/2]+p is prime.

7, 47, 127, 167, 239, 439, 479, 607, 967, 1319, 1559, 1999, 2239, 2447, 2719, 3359, 4007, 4327, 4967, 5039, 5279, 5407, 5879, 6007, 6287, 7127, 7607, 8167, 8447, 8527, 8999, 9127, 9439, 9967, 10487, 11087, 11287, 11399, 11527, 11719, 11927, 11959, 12479

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..43.

MATHEMATICA

cpQ[n_]:=Module[{p1=Ceiling[n/2]+n}, AllTrue[{p1, Ceiling[p1/2]+n}, PrimeQ]]; Select[Prime[Range[2000]], cpQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 29 2017 *)

CROSSREFS

Cf. A158708, A158709, A158710, A158711, A158712

Sequence in context: A376246 A009219 A348394 * A142185 A158914 A046872

Adjacent sequences: A158710 A158711 A158712 * A158714 A158715 A158716

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Mar 24 2009

EXTENSIONS

Corrected and incorrect Mathematica program deleted by Harvey P. Dale, May 29 2017

STATUS

approved