%I#8 2017年10月9日12:45:20

%S 23,31,38,52,54,62,84,93,98111118135150201209215228258266，

%电话：288299330348352379399400471476479488500509511533538，

%电话：540545560585598618624629678393714720751752759771790805

%N数N，使得第N个素数的位数之和=第N个半素数的数字之和。

%H Harvey P.Dale，n表，n=1..1000的a（n）</a>

%F A007605（a（n））=A175013（a（n））。

%F A007953（A000040（n））=A007952（A001358（n）钱德勒

%e a（1）=23，因为23素数=83（8+3=11），23半素数=65（6+5=11）。

%t模块[{nn=900，sps}，sps=Take[Select[Range[4nn]，PrimeOmega[#]==2&]，nn]；位置[Thread[{Prime[Range[nn]]，sps}]，_？（总计[IntegerDigits[#[[1]]]]==总计[IntigerDigits[#[2]]]&），1，头->假]]//平展（*_哈维·P·戴尔，2017年10月9日*）

%Y参考A007605，A175013。

%K nonn，基数，减去

%O 1,1号机组

%A _Juri-Stepan Gerasimov，2010年4月4日

%E编辑：N.J.A.Sloane，2010年4月5日

%E由雷·钱德勒编辑、更正和扩展，2010年4月5日