OFFSET
1,2
MATHEMATICA
Table[ ChineseRemainder[ Table[ Prime[i + 1], {i, 1, n}], Table[ Prime[i], {i, 1, n}]], {n, 1, 20}]
Table[With[{pr=Prime[Range[n]]}, ChineseRemainder[Rest[pr], Most[pr]]], {n, 2, 20}] (* Harvey P. Dale, Jun 11 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 25 2002
STATUS
approved