17 lines
278 B
Text
17 lines
278 B
Text
Func Firstfac(n) =
|
|
j := 3;
|
|
up := Sqrt(n);
|
|
|
|
while j <= up do
|
|
if Divides(j,n) then Return(j) fi;
|
|
j:=j+2;
|
|
od;
|
|
Return(n).;
|
|
|
|
Array eu[16];
|
|
eu[1]:=2;
|
|
!(eu[1],' ');
|
|
for i=2 to 16 do
|
|
eu[i]:=Firstfac(1+Prod<k=1,i-1>[eu[k]]);
|
|
!(eu[i],' ');
|
|
od;
|