%我#12 2018年2月17日18:34:21
%S 1,1,2,2,4,6,6,6,6,8,10,12,12,12,14,16,18,18,24,32,34,36,38,42,46,
%电话:48,54,56,64,68,78,90,90,94102114122124134144148150152160,
%电话:16817017818219019220021622022234234234246260264268270
%N a(1)=1,则最小数>=前一项,使得每个部分和都是质数。
%ta[1]=1;a[n_]:=a[n]=对于[an=a[n-1],True,an++,如果[AllTrue[ac=Rest@Accumulate[Append[Array[a,n-1]、an]],PrimeQ],Return[an]];阵列[a,100](*Jean-François Alcover_,2018年2月17日*)
%K nonn公司
%O 1,4型
%A _Amarnath Murthy,2002年9月25日
%E来自_David Wasserman的更多条款,2005年1月20日
|