A108454 Numbers n such that both 151*n + 149 and 149*n + 151 are primes.

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.

Links

Table of n, a(n) for n=1..48.

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

Cf. A108029, A108030.

Sequence in context: A069819 A143207 A359410 * A235483 A064783 A228877

Adjacent sequences: A108451 A108452 A108453 * A108455 A108456 A108457

Keyword

nonn

Author

Zak Seidov, Jun 03 2005

Status

approved