|
%I #16 Oct 18 2015 12:33:16
%S 1,2,9,16,18,22,29,38,39,43,50,51,87,95,107,108,109,111,121,123,134,
%T 137,143,144,155,160,162,176,178,193,195,199,200,227,230,233,237,239,
%U 240,241,247,248,251,261,262,277,304,314,324,326,328,338,339,352,363,370
%N Numbers n such that 90*n + 47 and 90*n + 49 are twin primes.
%C All matching entries for A201734 and A201818 are twin primes.
%H Harvey P. Dale, <a href="/A224859/b224859.txt">Table of n, a(n) for n = 1..1000</a>
%F A201734 intersect A201818.
%t Select[Range[0, 499], PrimeQ[90# + 47] && PrimeQ[90# + 49] &] (* copied from: _Alonso del Arte_, Jul 22 2013 *)
%t Select[Range[500],AllTrue[90#+{47,49},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Oct 18 2015 *)
%Y Cf. A201734, A201818.
%K nonn
%O 1,2
%A _J. W. Helkenberg_, Jul 22 2013
|
