%I#7 2018年11月18日00:53:50
%S 2,9,2765613913539312914679693404825447248155780267521,
%电话8422942255954625293713717897987691852588770249
%N使每个串联都是素数的最小N次幂。
%e2、29、2927等是素数。
%t c=“”;Do[k=1;While[!PrimeQ[ToExpression[c<>ToString[k^n]]],k++];打印[k^n];c=c<>ToString[k^n],{n,1,10}](*_Ryan Propper_,2005年7月8日*)
%K基,nonn
%O 1,1
%A _Amarnath Murthy,2003年12月11日
%E来自_Ryan Propper_的更多条款,2005年7月8日
|