%I#12 2013年6月5日11:19:55
%编号:1,1010561057653761057654628291937610576546289190956
%N a(N)=最小三角形数>a(N-1),a(1)=1。
%C三角形数字的对应索引:1,4,14,110,3494,2742647,764117,282328。
%加拿大(8)<=125453853555414109876348291937610576546289190956_Giovanni Resta_,2013年6月5日
%t n=1;t=1;打印[{n,t}];Do[ts=ToString[t];x=n+1;而[StringFreeQ[ToString[x(x+1)/2],ts],x++];打印[{n=x,t=x(x+1)/2}],{5}]
%Y参考A000217(三角形数字)。
%K nonn,基础
%O 1,2号机组
%A _Zak Seidov,2013年6月5日
%E a(7)摘自Giovanni Resta,2013年6月5日
|