%I#25 2022年9月13日09:34:31

%S 11,13,17,19,22,23,26,29,31,33,34,37,38,39,41,43,44,47,51,52,53,55，

%电话：57,58,59,61,62,65,66,67,68,69,71,73,74,76,77,78,79,82,83,85,86,87,88，

%U 89,91,92,93,94,95,97,99101102103104106107109110111113114单位

%N编号N，使A067734（N）=0；A002473的补充；n中至少有一个素数大于7，它有两个十进制数字。

%C也对n进行编号，使A198487（n）=0和A107698（n）=0.-_雅罗斯拉夫·克里泽克，2011年11月4日

%C A086299（a（n））=0.-_Reinhard Zumkeller_，2012年4月1日

%C A262401（a（n））_Reinhard Zumkeller，2015年9月25日

%C编号不在A007954中。-_穆罕默德·亚辛，2022年9月13日

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

%t选择[范围@120, 最后@地图[首先，FactorInteger@#]>7&]（*_Vincozo Librandi_，2016年9月19日*）

%o（哈斯克尔）

%o导入数据。列表（元素索引）

%o a068191 n=a068191_列表！！（n-1）

%o a068191_list=map（+1）$elemIndices 0 a086299_list

%o——Reinhard Zumkeller，2012年4月1日

%Y参见A001222、A002473、A067734。

%Y参见A068183、A068184、A068 185、A06 8186、A068 187、A0 68189和A068190。

%Y参考A262401。

%K基，nonn

%O 1,1号机组

%A _Labos Elemer，2002年2月19日