matlab计算亲密数对

用自定义函数判断一个数是不是质数 function jud=iszhishu(n)k=floor(sqrt(n));ct=0;for i=2:kif(mod(n,i)==0)break;elsect=ct+1;endendendjud=ct==k-1;end 用主函数调用： clc;cleark=2:1:200;for i=1:length(k-1)if(iszhishu(k(i)*k(i+1)))fprintf('%d %d\n',k(i),k(i+1))endend