%I#17 2018年5月19日02:31:32

%S 1910752312791787409161031804146889684371456155443，

%电话：161641174367187573303473330587359231419929430517634793，

%电话：87893997450714697531510319170085119026532836961298284134762993807589

%N素数出现在A030433的部分和中（素数以9结尾）。

%H Muniru A Asiru，<A href=“/A129081/b129081.txt”>n，A（n）表，n=1..3000</a>

%F a（n）=A030433（1）+A030432（2）++A030433（x）；a是质数。

%e a（5）=1787，因为1787=A030433（1）+A030432；1787是一个质数。

%t使用[{pr9s=Select[Prime[Range[3000]]，Last[Integer Digits[#]]==9&]}，选择[Accumulate[pr9s]，PrimeQ]]（*_哈维·P·戴尔，2011年12月31日*）

%o（PARI）{s=0；对于素数（p=217300，if（p%10==9，s+=p；if（isprime（s），print1（s，“，”））}/*_Klaus Brockhaus_，2007年5月13日*/

%o（GAP）P:=过滤（列表（[1..5*10^5]，n->10*n+9），IsPrime）；；

%o a：=过滤（列表（[1..Length（P）]，i->总和（[1..i]，k->P[k]）），IsPrime）；#_Muniru A Asiru_，2018年4月28日

%Y参考A030433、A000040。

%K easy、base、nonn

%O 1,1号机组

%A _Tomas Xordan_，2007年5月11日

%E条目由Klaus Brockhaus检查，2007年5月13日

%E更好的描述摘自Harvey P.Dale_，2011年12月31日