content_image/716195.jpg
Count := 0; for P := 0 to SetParts do end. for N := 0 to MaxElement do if N in Primes[P] then begin Write (Output, 2 * N + 1 + P SetSize * 2:6); Count := Count + 1; if (Count mod 8) = 0 then Writeln(Output) end 

## Produces as results: 

<img src='content_image/716195.jpg'>

