login
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.
1

%I #21 Jan 21 2019 10:25:08

%S 19,43,223,8123233,50137123,71732953,169973719,180078319,351869029,

%T 1034200459,1278189949,1614656959,1761702949,1829187289,1924594999,

%U 2804764213,3255458029,3468214093,3766062889,3802453873,3894167989,4894485133,5862143449,6145800823

%N 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.

%C With contributions from _Harvey P. Dale_ and _Charles R Greathouse IV_.

%H Zak Seidov and Donovan Johnson, <a href="/A229765/b229765.txt">Table of n, a(n) for n = 1..500</a> (first 36 terms from Zak Seidov)

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

%K nonn

%O 1,1

%A _Zak Seidov_, Sep 28 2013