%I#38 2018年10月10日10:14:28

%S 0,1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,18,20,21,22,24,25,27,28,30,32，

%电话：33,35,36,40,42,44,45,48,49,50,54,55,56,60,63,64,66,70,72,75,77,80,81，

%U 84,88,90,96,98,99100105108110111112121125126128单位

%N是重复数字A010785的乘积的数字。

%C可以写成a*b*C*的数字。。。其中a、b、c是十进制展开式为单个数字的重复的数字。

%C A051038的超集。此序列中但不在A051038中的第一个数字是111、222、333、444、555_R.J.Mathar，2008年9月17日

%C From _David A.Corneth，2017年8月3日：（开始）

%C乘法运算结束。

%C一位数素数与形式（10^n-1）/9的数字的乘积。（结束）

%H David A.Corneth，n的表格，A（n）表示n=1..12917（术语<=10^8）

%e 99是成员，因为99=3*33。

%e 9768是自9768=2*22*222以来的成员。

%e 111*2*33*44=322344是成员。

%p is A010786：=proc（n），如果nops（convert（converter（n，base，10），set））=1，则为true；否则为假；fi；结束：isA084034：=进程（n，a010785）本地d；如果n=1，则返回（true）；fi；对于（numtheory[divisors]（n）减去{1}）中的d，如果a 010785中的d是A084034（n/d，a010785），则返回（true）；fi；fi；od：返回（假）；end:nmax:=1000:a010785:=[]：对于k从1到nmax-do，如果是A010786（k），那么a010785：=[op（a010785]，k]；fi；od：对于从1到nmax的n，如果是A084034（n，a010785），则执行do，然后打印f（“%d，”，n）；fi；结束日期：#R.J.Mathar，2008年9月17日

%Y参考A002275、A010785、A051038、A084348。

%Y A002473给出了个位数的乘积。

%K基，nonn

%氧1,3

%A _Amarnath Murthy，2003年5月26日

%E由_David Wasserman修正和扩展，2004年12月9日

%E修正数据，偏移量由_David A.Corenth_更改为1，2017年8月3日

%E编辑：N.J.A.Sloane_，2017年7月2日和2018年10月10日