%I#8 2022年2月7日18:22:12

%S 1,7,16,28,40,62,761181361901822023042562663237643688，

%电话：502526556706586822808762106281688697891611527961242，

%电话：976126610611616081096158214461306135615661606181817881866203219361996220701846255622082506256624461956247628962626262826

%N a（N）是可以用N种方式表示为p*q+r的最小正数，其中p、q、r是带p<=q和p+q+r素数的素数。

%H Robert Israel，n表，n=0..3100的a（n）</a>

%e a（3）=28，因为28可以精确地用3种方式表示：2*13+2、3*7+7和5*5+3，并且没有更小的数字可以。

%p N:=3000:#对于术语<=N

%p V：=矢量（N）：

%p p：=选择（isprime，[2，seq（i，i=3..N，2）]）：

%p PS:=转换（p，设置）：

%p nP:=无（p）：

%p代表i从1到nP do

%p代表j从i到nP，而p[i]*p[j]<N do

%p S:=转换（选择（`<=`，映射（`+`，PS相交映射（`-`，PS，p[i]+p[j]），p[i]*p[j]]），N），列表）；

%p V[S]：=V[S]+~1；

%日期：

%p m：=最大值（V）：

%p W：=阵列（0..m）：

%p代表n从1到n do

%pw:=V[n]；

%p如果W[W]=0，则W[W]：=n fi；

%日期：

%p W：=转换（W，列表）：

%pz:=列表工具：-搜索（0，W）：

%p如果z<>0，则W[1..z-1]，否则W-fi；

%Y参考A350694

%K nonn公司

%0、2

%以色列罗贝尔特，2022年1月29日