%I#15 2023年6月20日14:50:18

%S 18496407142271430914921164031644117243184091884719049，

%电话：1914720459209412145721479219492242723453254272764930409，

%电话：304633194934921404634072143009442274450945107493035834359491

%复合数和每个除数（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]；选择[范围[259500]！PrimeQ[#]&&fQ[#，4]&]（*RobertG.Wilson v_，2014年6月11日*）

%t d4Q[n_]：=CompositeQ[n]&&AllTrue[Rest[Divisors[n]]，DigitCount[#，10,4]>0&]；选择[范围[60000]，d4Q]（*_哈维·P·戴尔，2023年6月20日*）

%Y请参阅A062653、A062664、A06266、A06268、A0626.69、A062671、A06267、A0626.73、A062 674、A06 2675、A0621676、A062 67、A062 68、A062 688、A062 699、A062 62680。

%K基础，简单，无

%O 1,1号机组

%A _Erich Friedman_，2001年7月4日

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