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

%S 41,43,471492413473494014094194214314334394434457461，

%电话：46346747948749149954154764164364774394194710491249，

%电话：14091423142714291433143914471451145314591471148114831487

%N每个除数（1除外）都包含数字4。

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

%e1849有除数1、43和1849，最后两个包含数字4。

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

%t选择[Range[21500]，AllTrue[Rest[Divisors[#]]，DigitCount[#，10,4]>0&]&]（*需要Mathematica版本10或更高版本*）（*Harvey P.Dale_，2021年6月5日*）

%o（岩浆）[2..1500]|forall{d:d in Set（Divisors（k））diff{1}|4 in Intseq（d）}]；//_Marius A.Burtea，2019年11月7日

%Y请参阅A062653、A062664、A06266、A06268、A062670、A06267、A06262、A0621673、A062、674、A062，675、A0626.76、A0627、A062688、A062699、A06262680。

%K基础，简单，无

%O 1,1号机组

%A _Erich Friedman_，2001年7月4日

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

%E示例由Harvey P.Dale_修正，2021年6月5日