%I#7 2019年6月1日18:57:03
%S 2,333133313333333313333333331333303333333303331933333329,
%电话:333333333 2333333333013333333333 19333333333.3307,
%电话:3333333333 013333333303333333233333333.3333331
%N从n3s开始的最小素数。
%t连接[{2,3},Table[SelectFirst[Join[10FromDigits[PadRight[{},k,3]]+{1,7,9},Flatten[Table[100 FromDiges[PadRight[{},k,3]+10n+{1,3,7,9{,{n,0,9}]],Flatten[Table[2000 FromDigits[PaddRight[},k,3]+100n+{2,3,7},{,0,99}],Prime Q],{k,2,20}]](*需要Mathematica版本10或更高版本*)(*Harvey P.Dale_,2019年6月1日*)
%Y参考A065584、A068103、A068105。
%K基础,简单,无
%0、1
%A _Amarnath Murthy,2002年2月20日
%E更多术语摘自_Sascha Kurz,2002年3月19日
|