%I#15 2021年10月13日04:51:18

%S 3,24,28,42,48,52,54,58,60,66,72,90102108114132138150168172，

%电话174180192196198214228234240246252264268270282294298，

%电话：312318348354360384390402404420424450468478480492

%N个数，具有一个素数和一个3-光滑数之和的唯一表示。

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

%F A081308（a（n））=1。

%t sp3sQ[n_]：=长度[Select[IntegerPartitions[n，{2}]，（PrimeQ[#[[1]]]&&Max[FactorInteger[#[2]]][[All，1]]]<4）||（PrimeQ[#[2]]]&Max[FactorInteger[#[[1]]][[全部，1]]]<4，&]]]=1；选择[范围[500]，sp3sQ]/。（5->无）（*哈维·P·戴尔，2019年2月5日*）

%t最大值nmax=1000；

%t S=选择[Range[nmax]，Max[FactorInteger[#][[All，1]]]<=3&]；

%t A081308[n_]：=计数[TakeWhile[S，#<n&]，S_/；PrimeQ[n-s]]；

%t选择[Range[nmax]，A081308[#]==1&]（*_Jean-François Alcover_，2021年10月13日*）

%o（哈斯克尔）

%o a081312 n=a081312_list！！（n-1）

%o a081312_list=过滤器（（==1）。a081308）[1..]

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

%Y参考A000040、A003586、A081308、A081313。

%Y A081311的子序列。

%K nonn公司

%O 1,1号机组

%A _Reinhard Zumkeller，2003年3月17日