OFFSET
1,1
MATHEMATICA
For[k = 0, k < 1415, If[PrimeQ[ChineseRemainder[Range[k], Prime[Range[k]]]] && PrimeQ[ChineseRemainder[ -Range[k], Prime[Range[k]]]], Print[k]], k++ ]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Jun 07 2003
STATUS
approved