The-study-of-Best-Number.rar_The Number

clear all; close all; clc %求所有的事事如意数 NMax = 10^10; j = 1; tic %挑选事事如意数,由于小于等于10的正整数都是事事如意数，因此从大于10的正数开始挑选 for i=11:NMax %开始挑选事事如意数 if isruleoutPrime(i) == 0 && numincondition(i) == 1 allbestnum(j) = i; j = j+1; end disp('正在挑选中，请等待......'); end allbestnum toc