%I#10 2015年3月14日00:05:07

%S 1,5,11,13,14,15,16,18,19,24,29,31,32,33,35,36,40,43,48,52,55,57,62，

%电话：63,64,69,71,74,77,80,82,84,85,86,88,94,97,98101106109111112115，

%电话：116117118124125130132135138140145151154157160162163

%对N进行编号，使第N个下孪生素数的位数之和为下孪生素。

%e第13对下孪生素数是179。1+7+9=17双生子对（17,19）的下双生子素数。

%o（PARI）sdtwtw（n）={local（x，y）；对于（x=1，n，y=总和数字（twinl（x））；如果（istwin（y）<0，打印1（x“，”））}孪晶（n）=\第n个下孪晶素数{局部（c，x）；c=0；x=1；而（c<n，if（i素数（素数（x）+2），c++）；x++；）；return（质数（x-1））}istwin（n）=\return-1如果n是下孪生子，1如果是上孪生子；否则返回0{局部（p1，p2）；如果（isprime（n），p1=n-2；p2=n+2；如果（isprime（p1），返回（1））；如果

%K easy、nonn、base

%O 1,2号机组

%2005年3月13日，A Clino Hilliard