登录
53635英镑
由向上反对偶读取的矩形数组:a(n,k)=第n行中最大项的索引<=10^kA253572号,n>=1,k>=0。
10
1, 1, 4, 1, 7, 7, 1, 9, 20, 10, 1, 10, 34, 40, 14, 1, 10, 46, 86, 67, 17, 1, 10, 55, 141, 175, 101, 20, 1, 10, 62, 192, 338, 313, 142, 24, 1, 10, 67, 242, 522, 694, 507, 190, 27, 1, 10, 72, 287, 733, 1197, 1273, 768, 244, 30
抵消
1,3
评论
或者a(n,k)=小于或等于10^k的正整数的个数,这些正整数不可被超过素数(n)的素数整除。
例子
数组开始:
{1, 4, 7, 10, 14, 17, 20, 24, 27, 30, ...}
{1, 7, 20, 40, 67, 101, 142, 190, 244, 306, ...}
{1, 9, 34, 86, 175, 313, 507, 768, 1105, 1530, ...}
{1, 10, 46, 141, 338, 694, 1273, 2155, 3427, 5194, ...}
{1, 10, 55, 192, 522, 1197, 2432, 4520, 7838, 12867, ...}
{1, 10, 62, 242, 733, 1848, 4106, 8289, 15519, 27365, ...}
{1, 10, 67, 287, 945, 2579, 6179, 13389, 26809, 50351, ...}
{1, 10, 72, 331, 1169, 3419, 8751, 20198, 42950, 85411, ...}
{1, 10, 76, 369, 1385, 4298, 11654, 28434, 63768, 133440, ...}
{1, 10, 79, 402, 1581, 5158, 14697, 37627, 88415, 193571, ...}
数学
r=10;y[1]=t=表[2^j,{j,0,39}];最大值=10^13;长度=10^10;上一个=0;对于[n=2,n<=r,n++,next=0;对于[k=1,k<=43,k++,如果[Prime[n]^k<max,t=Union[t,Prime[n]*t];s=第一位置[t,v_/;v>len,0];t=取[t,s[[1]]-1];如果[t[[-1]]>len,t=删除[t,-1]];next=长度[t];如果[next==prev,Break,prev=next],Break]];y[n]=t];b[i_,j_]:=第一位置[y[i],v_/;v>10^j][[1]];a253635[n_,j_]:=如果[IntegerQ[b[n,j]],b[n,j]-1,0];压扁[表[a253635[n-j,j],{n,r},{j,0,n-1}]](*数组反对角线压扁*)
关键词
非n,
作者
L.埃德森·杰弗里2015年1月7日
状态
经核准的