الأعداد الأولية ذات القرابة

tamer=""   

BELKISS={}

p=3 for i=5,1000 do

t={1}for j=2,i/3 do t[Math.Mod(i,j)+1]=m end

if t[1]then

p=i,i-p>2 or Table.Insert( BELKISS,1,"["..i..","..p.."]".." ");

--

end

 ---------------------------

end

for ee,rr in pairs (BELKISS) do

tamer=tamer..rr

end

Dialog.Message("Notice",tamer);