login
A108454
Numbers n such that both 151*n + 149 and 149*n + 151 are primes.
0
30, 60, 98, 102, 188, 240, 242, 252, 258, 260, 350, 368, 408, 470, 492, 498, 540, 638, 650, 660, 812, 818, 840, 914, 954, 968, 998, 1044, 1050, 1092, 1098, 1110, 1148, 1152, 1170, 1220, 1262, 1302, 1310, 1352, 1532, 1584, 1610, 1668, 1670, 1730, 1770, 1772
OFFSET
1,1
COMMENTS
Intersection of A108029 and A108030.
MATHEMATICA
Do[If[PrimeQ[151*n + 149]&&PrimeQ[149*n + 151], Print[n]], {n, 2000}]
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 *)
CROSSREFS
Sequence in context: A069819 A143207 A359410 * A235483 A064783 A228877
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 03 2005
STATUS
approved