%I#9 2017年9月14日03:53:23
%S 1,3,8,12,18,22,24,36,44,52,60,66,74102112116124134156224,
%电话234246304312320320340374390396402426450460522528554568,
%电话588612632640654660686700706710718762764772788846
%N a(N)是1+a(1)^3+a(2)^3+…+a(n)^3是素数。
%C对应的素数是2,29,541,2269,8101,18749,32573,。。。
%e a(1)=1,因为1+1^3=2是质数;
%e a(2)=3,因为1+1^3+2^3=10不是质数,但1+1^3+3^3=29是质数;
%e a(3)=8,因为1+1^3+3^3+4^3=93,1+1^3+3^3+5^3=154,1+1*3+3^3+6^3=245,以及1+1^3+3^3+7^3=372都是非素数,但1+1^3A+3^3+8^3=541是素数。
%t p=1;lst={p};Do[If[PrimeQ[p+n^3],AppendTo[lst,n];p=p+n^3],{n,11500}];第一次
%Y参见A219634。
%K nonn公司
%O 1,2号机组
%2012年11月24日,拉格瑙市
|