A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #480 A szerencsés számos feladatra egy megoldás, (legalábbis ha jól értem a feladat megfogalmazását):
Szerencsesszamok:=proc(n::posint)
local L,k,sz,m;
sz:=[];
if n<3 then return sz: end if;
L:=[seq(i,i=1..n,2)];k:=2;m:=nops(L);
while nops(L)>=k do
m:=nops(L);
L:=L[remove(i->evalb((i mod L[k])=0) ,[seq(1..m)])];
sz:=[sz[],L[k]];k:=k+1;
end do;
sz;
end proc;
# pl.
Szerencsesszamok(30);