A229765 Numbers p such that p, p + 4, p + 10, p + 18, p + 28, p + 40, p + 54, p + 70, p + 88, p + 108 are all prime.

19, 43, 223, 8123233, 50137123, 71732953, 169973719, 180078319, 351869029, 1034200459, 1278189949, 1614656959, 1761702949, 1829187289, 1924594999, 2804764213, 3255458029, 3468214093, 3766062889, 3802453873, 3894167989, 4894485133, 5862143449, 6145800823

Offset

1,1

Comments

With contributions from Harvey P. Dale and Charles R Greathouse IV.

Links

Zak Seidov and Donovan Johnson, Table of n, a(n) for n = 1..500 (first 36 terms from Zak Seidov)

Mathematica

Select[Prime[Range[2861*10^5]], AllTrue[#+{4, 10, 18, 28, 40, 54, 70, 88, 108}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 21 2019 *)

Crossrefs

Sequence in context: A205533 A185167 A140619 * A058829 A063313 A044096

Adjacent sequences: A229762 A229763 A229764 * A229766 A229767 A229768

Keyword

nonn

Author

Zak Seidov, Sep 28 2013

Status

approved