%I#5 2015年4月28日14:57:42

%电话：77773178069229751312619313313739317741317903337457337853，

%电话：35248935992936462737453137458737574337575997379103，

%电话：3791873793973798113799973899717192397333917422837475217497117941

%N Home素数，其丑陋度大于8。

%C术语数量<10^n:0，0，0，1，31，288。。。。

%t lst={}；f[n_]：=FromDigits@Flatten[IntegerDigits@表格[#[[1]]，{#[2]]}]&/@因子整数@n, 2]; h[n_]：=嵌套WhileList[f@#&，n，！PrimeQ@#&、1、28]；做[p=h[n][[-1]]；如果[底漆Q@p&&p<10^7&&p！=n、 打印[{n，p}]；附加到[lst，p]]，{n，2，1000}]；

%t d=9-2；lsu={}；Do[If[lst[[n]]==lst[[n+d]]，AppendTo[lsu，lst[n]]，{n，188004-d-1}]；拿下[Union@lsu，30]

%Y参见A037274、A118756、A133957、A13395、A133961、A13396、A1331965、A1339967、A133 969、A133 973、A133975、A133 97、A13397。

%K nonn，基础

%O 1,1号机组

%A _Robert G.Wilson v_，2007年9月30日