[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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