1986年2月14日

A286614型

的限制生长序列变换1986年.

1, 2, 2, 2, 3, 4, 2, 5, 5, 2, 6, 2, 3, 5, 6, 2, 2, 2, 6, 7, 5, 2, 8, 6, 2, 5, 5, 2, 6, 6, 2, 5, 3, 6, 5, 6, 5, 2, 9, 5, 10, 6, 2, 5, 11, 2, 9, 5, 5, 9, 5, 5, 8, 12, 2, 6, 13, 5, 14, 2, 2, 9, 5, 5, 5, 5, 2, 2, 13, 6, 2, 2, 5, 2, 13, 8, 5, 5, 12, 6, 5, 5, 5, 2, 5, 6, 6, 5, 2, 2, 6, 6, 9, 5, 6, 15, 5, 5, 6, 5

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,2

链接

安蒂·卡图恩，n=0..65536时的n，a（n）表

黄体脂酮素

（平价）

rgs_transform（invec）={my（occurrences=Map（），outvec=vector（length（invec）），u=1）；对于（i=1，length，invec，if（mapisdefined（occurements，invec[i]），my（pp=mapget（occursions，invec[i]；

write_to_bfile（start_offset，vec，bfilename）={对于（n=1，长度（vec），write（bfilename，（n+start_offset）-1，“”，vec[n]）；}

A003961号（n） =我的（f=系数（n））；对于（i=1，#f~，f[i，1]=下一素数（f[i、1]+1））；factorback（f）；\\此函数来自米歇尔·马库斯

A048673号（n） =(A003961号（n） +1）/2；

A005940号（n） ={my（p=2，t=1）；n--；直到（！n\=2，if（（n%2），（t*=p），p=nextprime（p+1））；t}；\\根据的代码修改M.F.哈斯勒

A046523号（n） ={my（f=vecsort（factor（n）[，2]，4），p）；prod（i=1，#f，（p=nextprime（p+1））^f[i]）；}；\\此函数来自查尔斯·格里特豪斯四世2011年8月17日

A286613型（n）=A046523号(A048673号(A005940号（1+n））；

写入到文件（0，rgs_transform（向量（65537，n，A286613型（n-1）），“b286614.txt”）；

交叉参考

囊性纤维变性。A286613型,A286622型.

上下文中的序列：A338139飞机 A244798号 A308253型*A359481型 A023508年 A151553号

相邻序列：A286611型 A286612型 A286613型*A286615型 1986年2月 A286617型

关键字

非n

作者

安蒂·卡图恩2017年5月30日

状态

经核准的