登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A064364号 正整数排序依据2014年0月14日(n) ,它们的素除数之和,作为主键,n作为次键。 12

%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日

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日04:13。包含371235个序列。(在oeis4上运行。)