|
%I #6 Aug 12 2015 12:14:13
%S 30,60,98,102,188,240,242,252,258,260,350,368,408,470,492,498,540,638,
%T 650,660,812,818,840,914,954,968,998,1044,1050,1092,1098,1110,1148,
%U 1152,1170,1220,1262,1302,1310,1352,1532,1584,1610,1668,1670,1730,1770,1772
%N Numbers n such that both 151*n + 149 and 149*n + 151 are primes.
%C Intersection of A108029 and A108030.
%t Do[If[PrimeQ[151*n + 149]&&PrimeQ[149*n + 151], Print[n]], {n, 2000}]
%t Select[Range[2000],AllTrue[{151#+149,149#+151},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 12 2015 *)
%Y Cf. A108029, A108030.
%K nonn
%O 1,1
%A _Zak Seidov_, Jun 03 2005
|
