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