DataMuseum.dk

begin
_____
integer i , j , k , q , stop , p , tal , n , t , aar , ar , arnr , nr , pro , ud
_______
 ;
integer  array c[0:39],d[0:39],e[1:149];
_______  _____
boolean array  A[0:1300],B[0:40];
_______ _____
select(8);
writechar(42);
B[0]:=__1;
      40
A[0]:=__1;
      40
for i:= 1 step 1 until 1300 do  A[i]:=false;
___       ____   _____      __        _____
for i:= 1 step 1 until 40 do    B[i]:=B[0]shifti;
___       ____   _____    __              _____
k:=5;
n:=0;
for i:= 1,7,11,13,17,19,23,29,31,37,41,43,47,49,53,59,61,67,71,73,77,79,83,89,
___
91,97,101,103,107,109,113,119,121,127,131,133,137,139,143,149do
                                                             __
begin
_____
c[n]:=i;
n:=n+1;
end;
___
for i:=0 step 1 until 39 do e[c[i]]:=i;
___      ____   _____    __
stop:=sqrt(10000);
t:=2;
writetext(|<
          <
                                                  primtal
      2      3      5|);
                     >
ud:=3;
for k:=kwhilek<stop-2 do
___     _____         __
begin
_____
q:=p:=0;
for k :=kwhile integer(A[p]∧B[q])|0do
___      _____ _______           = __
begin
_____
ifq=39then begin q:=0;p:=p+1;endelseq:=q+1;
__    ____ _____             _______
k:=150⨯p+c[q];
end;
___
j:=67_k;
     :
for i:=0 step 1 until 39 do d[i]:=c[i]⨯k;
___      ____   _____    __
for ar:= j step -1 until p do
___        ____    _____   __
begin
_____
tal:=k⨯ar⨯150;
aar:=A[ar];
for i:= 39 step -1 until 0  do if integer(aar∧B[i])=0then
___        ____    _____    __ __ _______            ____
begin
_____
pro:=tal+d[i];
arnr:=pro/150;
A[arnr]:=A[arnr]∨B[e[pro-150⨯arnr]];
end;
___
end;
___
write(|ddddddd|,k);
      <       >
ud:=ud+1;
ifudmod15=0thenwritecr;
__  ___    ____
end;
___
fori:=q+1step 1 until 39 do if integer(A[p]∧B[i])=0then
___      ____   _____    __ __ _______             ____
begin
_____
write(|ddddddd|,150⨯p+c[i]);
      <       >
ud:=ud+1;
ifudmod15=0thenwritecr;
__  ___    ____
end;
___
forp:=p+1step 1 until 66do
___      ____   _____   __
fori:=0step 1 until 39 do if integer(A[p]∧B[i])=0then
___    ____   _____    __ __ _______             ____
begin
_____
write(|ddddddd|,150⨯p+c[i]);
      <       >
ud:=ud+1;
ifudmod15=0thenwritecr;
__  ___    ____
end;
___
end;
___
run<
1[stop]