%I#13 2020年8月30日13:50:07
%S 10110091000710000310000310000310000007100000007,
%电话:10000000001910000000000031000000000003710000000000031,
%U 1000000000000371000000000000006110000000000000013
%从1开始的最小素数,正好包含N个0。
%H Harvey P.Dale,n表,n=1..100的a(n)</a>
%t sp0[n_]:=模块[{c=1,d},而[d=FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数字计数[d,10,0]>n | |复合Q[d],c=c+2];FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数组[sp0,20](*需要Mathematica版本10或更高版本*)(*_Harvey P.Dale_,2020年8月30日*)
%Y参考A037053、A003617、A139536。
%K nonn,基础
%O 1,1号机组
%A_Lekraj Beedassy,2008年4月25日
|