%I#25 2019年11月7日05:19:04

%S 83,8918128128338389487587683787809811821823827829，

%电话：83985385785986387788188388798310871181118712831289，

%电话：13811481148314871489158317831787178918011811823183118471861

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

%C A011538的子序列，数字带有8.-_米歇尔·马库斯，2015年11月21日

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

%e7387有除数83、89和7387，它们都包含数字8。

%p是A062677:=进程（n）

%p如果n=1，则

%p返回false；

%p end if；

%数[除数]（n）减去{1}do中d的p

%p转换（转换（d，基数，10），集合）；

%p如果不是8，则%

%p返回false；

%p end if；

%p端do：

%p为真；

%p端程序：

%p代表n从1到2000 do

%p如果是A062677（n），则

%p打印f（“%d，”，n）；

%p end if；

%截止日期：#R.J.Mathar_，2017年3月27日

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

%Y参见A062653、A062664、A06266、A06268、A0626.69、A062670、A06267、A0626.71、A0621672、A062633、A062 674、A062 67、A062 65、A062 66、A062 68、A062 69、A06269、A062 680。

%K基础，简单，无

%O 1,1号机组

%A _Erich Friedman_，2001年7月4日