Set Types  85  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:  3  5  7  11  13  17  19  23  29  31  37  41  43  47  53  59  61  67  71  73  79  83  89  97  101  103  107  109  113  127  l31  l37  9871  9883  9887  9901  9907  9923  9929  9931  9941  9949  9967  9973  10007 10009 10037  10039  10061  10067 10069 10079  10091  10093 10099 10103  10111 10133  10139 10141  10151 10159 10163 10169 