%I#52 2023年11月3日16:07:58
%S 1,2,3,4,5,6,8,9,7,10,12,15,16,18,14,20,24,27,21,25,30,32,36,11,28,40,
%电话:45,48,54,35,42,50,60,64,72,81,13,22,56,63,75,80,90,96108,33,49,70,
%电话:84100120128135144162,241051125126150160180192216243
%按A001414(N)排序的N个正整数,它们的素除数之和作为主键,N作为次键。
%这是正整数的置换。
%C a(1)可以被视为0,因为1不是A001414的成员,可以以(0)=1开头(请参阅W.Lang链接)。
%C该数组的行长序列为A000607(n),n>=2。
%C如果数组为[1,0,2,3,4,5,6,6,…],偏移量为0,则行长度序列为A000607(n),n>=0。
%C From _David James Sycamore_,2018年5月11日:(开始)
%C对于n>1,a(n)是尚未发现的最小数,因此sopfr(a(n。序列以递增顺序列出了有限集S(k)={x:sopfr(x)=k},k>=0的元素,其中sopfer(x)=0 iff x=1。当a(n)=A056240(k)对于某些k>=2时,则sopfr(a(n))=k,a(n”)是A000607(k)项中的第一项,所有这些项都具有sopfr=k因此,序列遵循锯齿形轮廓,从a(n)=A056240(k)上升到A000792(k),这是sopfr=k时的最大数字,然后从A056240(k+1)开始,获得下一个较大的sopfr值。(结束)【M·F·哈斯勒编辑,2019年1月19日】
%H Alois P.Heinz,<a href=“/A064364/b064364.txt”>行n=1..60,扁平</a>(来自Reinhard Zumkeller的前32行)
%H H·哈弗曼:<a href=“http://chesswanks.com/seq/sopfr/000.txt“>前100个总和(完整,一个6 MB的文件)</a>
%H H·哈弗曼:<a href=“http://chesswanks.com/seq/sopfr/“>素因子序列和表(带前50000个和链接的概述)</a>
%H Wolfdieter Lang,前16行</a>
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%F如果a(n)=A056240(k)对于某些k,则a(n+A000607(k)-1)=A000792(k)_David James Sycamore_,2018年5月11日
%e三角形表示:
%e 1,
%e(0,)(参见W.Lang“前16行”链接中的注释)
%e 2,
%e 3,
%e 4,
%e 5、6、,
%e 8、9,
%e 7、10、12、,
%e 15、16、18、,
%e 14、20、24、27,
%e 21、25、30、32、36、,
%e 11、28、40、45、48、54、,
%e 35、42、50、60、64、72、81、,
%e 13、22、56、63、75、80、90、96、108、,
%e。。。
%t项=1000;nmax0=100000(*最大sopfr的粗略估计*);
%t sopfr[n_]:=sopfr[n]=总计[次数@@@FactorInteger[n]];
%t f[n1_,n2_]:=其中[t1=sopfr[n1];t2=sopfr[n2];t1<t2,正确,t1==t2,n1<=n2,正确、错误];
%t清除[g];
%t g[nmax_]:=g[nmmax]=排序[Range[nmax],f][[1;;terms]];
%t g[nmax=nmax0];
%t g[nmax+=nmax0];
%t同时[g[nmax]!=g[nmax-nmax0],打印[nmax];nmax+=nmax0];
%t A064364=g[nmax](*Jean-François Alcover_,2019年3月13日*)
%o(哈斯克尔)
%o导入数据。列表(分区、联合)
%o a064364 n k=a064364_tabf!!(n-1)!!(k-1)
%o a064364_row n=a064364 _ tabf!!(n-1)
%o a064364_tabf=[1]:尾部(f 1[]1(地图a000792[2..]),其中
%o f k pqs v(w:ws)=(映射snd pqs’):
%o f(k+1)(union pqs“”(zip(map a001414 us)us))w-ws其中
%o us=[v+1…w]
%o(pqs',pqs'')=分区((==k)。fst)pqs
%o a064364_list=连接a064364标签
%o--_Reinhard Zumkeller_,2015年6月11日
%o(PARI)列表a(nn)={nmax=A000792(nn
%o(PARI)A064364_vec(N,k=6,L=9)={vector(N,i,if(i<7,N=i,直到(A001414(N+=1)==k,);N<L,N,k++;L=3^((k-2)\3)*(2+(k-2)%3);N+0*N=A056240(k)-1用“for(k…)”替换为“a=concat(a,vn)”。-_M.F.Hasler,2019年1月19日
%Y参考A001414。
%Y参考A0000607(行长度)、A002098(行和)、A056240(最小=第n行中的第一项)、A000792(第n行中的最大项)。
%Y参考A257815(反向)。
%放松,不,看,塔布
%O 1,2号机组
%A _霍华德·A·兰德曼,2001年9月25日
%E更多条款摘自_Vladeta Jovovic,2005年9月27日
|