%I#42 2018年4月15日03:38:44

%S 4,8,6,10,28,22,52,34,76184,58213148,82172309424118393268，

%电话：1425843166645733882024122144367535088132741465298933，

%电话：9746521336138435381137382732394125713298924549161864478149715381569

%N a（N）是素数（具有多重性）之和可被素数（N）整除的最小复合数。

%C在大多数情况下，a（n）=A288814（质数（n）），但也有例外，例如，a（37）=213，而A288814=248。其他例外情况包括a（53）、a（67）、a“127”、a“137”等。当数字r使得A001414（r*p）小于A288814（p）时，会出现这些示例。

%C严格递增项的子序列（10，22，34，58，82，118，142，202，214，274，298，…），其中对于所有m>n，a（m）>a（n）给出了素数因子素数和为A108605的半素数。该子序列的指数序列（5、7、13、19、31、43、61、73、103、109、139、151…）给出了孪生素数A006512中的较大值。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%e a（5）=6，因为6=2*3是素数之和（2+3=5）可被5整除的最小数。

%e a（37）=213=A288814（74）=A288714（2*37）。

%t使用[{s=Array[Boole[CompositeQ@#]Total@Flatten[ConstantArray[#1，#2]和@@@FactorInteger@#]&，10^4]/.0->“”}，表[FirstPosition[s，_？（Mod[#，p]==0&）][1]，{p，Prime@Range@56}]]（*Michael De Vlieger_，2018年4月14日*）

%o（PARI）sopfr（k）=我的（f=系数（k））；求和（j=1，#f~，f[j，1]*f[j、2]）；

%o a（n）=我的（pn=素数（n））；对于复合（c=pn，如果（sopfr（c）%pn==0，返回（c））；\\_米歇尔·马库斯，2017年7月3日

%Y参见A000040、A001414、A006512、A056240、A108605、A288814。

%K非n

%O 1,1号机组

%2017年7月1日，狂热的詹姆斯·西卡莫雷