1,1
For[k = 0, k < 850, If[PrimeQ[ChineseRemainder[Range[k], Prime[Range[k]]]], Print[k]], k++ ]
Cf. A053664.
Sequence in context: A030287 A030153 A039126 this_sequence A044957 A044819 A048305
Adjacent sequences: A083373 A083374 A083375 this_sequence A083377 A083378 A083379
more,nonn
Farideh Firoozbakht (f.firoozbakht(AT)sci.ui.ac.ir), Jun 05 2003
Search completed in 0.002 seconds