|
|
黄体脂酮素
|
（PARI）
up_to=8192；
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]）；}
A064989号（n） ={my（f）；f=因子（n）；如果（n>1&&f[1,1]==2），f[1,2]=0）；对于（i=1，#f~，f[i，1]=precprime（f[i、1]-1））；因子回退（f）}；
写入到文件（1，rgs_transform（向量（up_to，n，A297171型（n） ）），“b297161.txt”）；
|
