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

%编号：2,5711111702422415126749573573135296236350694127383480

%前10^N个素数的位数之和。

%t NextPrime[n_Integer]：=模块[{k}，k=n+1；而[！PrimeQ[k]，k++]；k]；c=d=p=q=0；Do[While[d++；d<=10^n，q=NextPrime[q]；p=p+应用[Plus，RealDigits[q][1]]]；如果[PrimeQ[p]，c++]]；d--；打印[p]，{n，0，10}

%Y参考A051351、A057573。

%K nonn，基础

%0、1

%A _罗伯特·G·威尔逊，2000年11月27日