Mathematica Procedure can be for case mod 210 following:
Do[If[(PrimeQ[x^16 + 1]) && (PrimeQ[x^16 + 3]) && (PrimeQ[x^16 + 7]) && \
(PrimeQ[x^16 + 9]) && (MemberQ[{20, 40, 50, 100, 110, 160, 170, 190},
Mod[x, 210]]), Print[x]], {x, 57171409, 70171411}]
ARTUR
Dnia 30-12-2006 o 17:34:45 Nick Hobson <nickh at qbyte.org> napisał(a):
> 20, 40, 50, 100, 110, 160, 170, or 190