|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|