%I#25 2022年9月8日08:45:03

%电话：68897387234892518731789322873408748721508615668960787，

%电话6814368309686416880773289737817680778053784097858778943，

%电话：78961800898158987487881479802398521106489106987108389110087

%复合数和每个除数（1除外）都包含数字8。

%H Amiram Eldar，n的表，n的a（n）=1..10000</a>

%e 7387有除数83、89和7387，每个除数都包含数字8。

%t fQ[n_，dgt_]：=并集[MemberQ[#，dgt]&/@IntegerDigits@Rest@Divisors@n][1]；选择[范围[2，110100]！PrimeQ[#]&&fQ[#，8]&]（*_Robert G.Wilson v_，2014年6月11日*）

%t dc8Q[n_]：=AllTrue[Rest[Divisors[n]]，DigitCount[#，10,8]>0&]；选择[Range[111000]，CompositeQ[#]&&dc8Q[#]&]（*程序使用Mathematica版本10中的AllTrue函数*）（*Harvey P.Dale_，2020年3月30日*）

%o（岩浆）[2..120000]|不是IsPrime（k）中的k:k，而是Intseq（d）}]中的所有{d:d（除数（k））diff{1}|8；//_Marius A.Burtea，2019年11月7日

%Y请参阅A062653、A062664、A06266、A06268、A0626.69、A062670、A06267、A0626.71、A0621672、A062633、A062、674、A062和675、A0626、A0627、A06269、A062680。

%K碱基，简单，非n

%O 1,1号机组

%A _弗里德曼，2001年7月4日

%2019年11月7日，由_Amiram Eldar_校正的E偏移