# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a108454
Showing 1-1 of 1

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

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE