// time = 0.201 seconds

data[52]:=[*
<52, 1, 1, [ -1, 1 ], 0, [
<2, x>,
<3, x>,
<5, x - 2>,
<7, x + 2>,
<11, x + 2>,
<13, x + 1>,
<17, x - 6>,
<19, x + 6>
]>
*];