%I#9 2014年3月1日05:13:33

%S 1,9,27,39,49,51,57,63,81,91,93,99,33,69,77,21,87117123153171，

%电话：187201213217231237259279289129730130331932327，

%电话：361381399423427429447451453459471481483489493511

%N由A238332中的素数构成的非素数。

%H T.D.Noe，n的表格，n的a（n）=1..2700</a>

%t={}；eList={}；p=7；当[Length[t]<1000时，p=NextPrime[p]；e=FromDigits[Rest[IntegerDigits[p]]]；如果[！PrimeQ[e]&&！成员Q[eList，e]，附录[t，p]；附加到[eList，e]]]；电子列表

%o（哈斯克尔）

%o a238333 n=a238333列表！！（n-1）

%o a238333_list=f[]$drop 4 a000040_list其中

%o f xs（p:ps）|a010051 t==1||t`元素`xs=f xs-ps

%o |否则=t:f（t:xs）ps

%o其中t=读取$tail$显示p

%o——Reinhard Zumkeller，2014年2月28日

%Y参考A000040（质数），A238332。

%Y参考A010051。

%K nonn，基础

%O 1,2号机组

%A _T.D.Noe_，2014年2月28日