OFFSET
1,1
MATHEMATICA
For[k = 0, k < 850, If[PrimeQ[ChineseRemainder[Range[k], Prime[Range[k]]]], Print[k]], k++ ]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Jun 05 2003
EXTENSIONS
a(16) from Max Alekseyev, May 10 2009
a(17)-a(18) from Giorgos Kalogeropoulos, Jan 31 2024
STATUS
approved