%I#2 2012年3月30日17:40:35

%S 6,9,25,26,331212123129145146721723745746753841842843，

%电话：84986586687150415042506555071516151635169518651915761，

%电话：5767579359055906591140314032124403234034540346464035340441

%N个半素数（A001358），是不同阶乘的和。

%C工厂0！和1！不被认为是不同的。

%e 721=6+1! = 7*103.

%t半pQ[n_]：=加@@Last/@FactorInteger[n]==2；fac=范围[10]！；lst={}；Do[n=Plus@@（fac*IntegerDigits[k，2，10]）；如果[semipQ[n]，AppendTo[lst，n]]，{k，2^10-1}]；工会[lst]

%Y参见A001358、A025494、A115645、A115644、A089359。

%K nonn公司

%O 1,1号机组

%A Giovanni Resta，2006年1月27日