#来自在线整数序列百科全书的问候!搜索:id:a0419444 显示1-1的1 ;%I a0419444;%S a019444 1,3,2,2,6,8,4,4,11,5,5,14,16,7,19,19,21,9,24,10,27,29,12,32,13,35,37,37,15,15,40,42,;%T a019444 17,45,45,18,48,50,20,53,55,55,22,58,23,23,61,63,25,66,66,26,69,71,28,74 74,74,74,24,24,24,27,29,12,12,32,13,35,35,37,37,37,15,15,40,42,,76,30,79, %U a019444 31,82,84,33,87,34,90,92,36,95,97,38100,39103105,41108110,43113 %N a019444 a 1,a 2。。。,是正整数的排列,使得每个初始段的平均值为整数,当被视为排列或函数时,使用贪心算法定义一个 %C A019444自逆,即a(a(n))=n.-\u Howard a.Landman,2001年9月25日 %C A019444每个初始段都有一个整数平均值,这与始终可被n除的前n个元素之和微不足道地等价- u Franklin T.Adams-Watters,2014年7月7日 %C A019444也是一个不同正整数的字典最小序列,使得a(n)-n的所有值也是不同的。-_Ivan Neretin,2015年4月18日 %H A019444 Franklin T.Adams Waters,n=1..10000的n,a(n)表%H A019444 Muharem Avdispahić,Faruk Zejnulahi,具有可除性的整数序列,Fibonacci Quarterly(2020);%H A019444 a.Shapovalov,问题M1517(俄语),Kvant 5(1995),20-21。英文翻译出现在量子问题M185,1996年9月/10月(注意,文件是75Mb)。 %H A019444数学论坛,周问题818%H A019444 B.J.文卡塔查拉,对自然数的奇怪的双投射,JIS 12(2009)09.8.1. %H A019444自然数排列序列的索引项%F A019444 a(n)=A002251(n-1)+1。(由 %F.Hasler 于2014年9月17日纠正) %F A019444让s(n)=和(k=1,n,a(k))/n=A019446(n)。如果s(n-1)不出现在a(1),…,a(n-1),a(n)=s(n)=s(n-1);否则,a(n)=s(n-1)+n和s(n)=s(n-1)+1。[_FranklinT.Adams-Watters %F A019444 Lim{n->infinity}(max(n,a(n))/min(n,a(n))=φ=A001622。-[网友Stanislav Sykora_,2017年6月12日;%p a0119444 p:=proc(q)当地a、b、i、n;a:=[1];b:=1;对于i从2到70的i %p a01444做n从1到q做n从1到q做如果麻木发生(a,n)=0则0则;%p a01444如果压裂((b+n)/i)=0则a a19444如果压裂((b+n)/i)=0那么a:=[op(a),n];b:=b+n;break;fi;fi; %p a0444 od;od;op(a);end:p p p a);p A019444 od;op(a);结束:p结束(10^9);##u Paolo p.Lava,2019年7月11日 %t A019444 a[1]=1;[[[[n]:=a[n]=模块[{s,v},s=a/@范围[n-1];为[v=Mod[-加上@s,n,n],v<1〈124;成员资格Q[s,v,v],v+=n,Null];v];v];%t A01944444 lst={1};f[s[U U列表]:=Block[{k=1,len=1+长度1+长度@lst,t=加加加加上加上@lst,t=加@lst}加上@lst}的目的,同时[成员资格Q[s,k][除除除除除除除除除除除除除除除除除除除除除除伦]!=0,k++];AppendTo[lst,k]];Nest[f,lst,69](*URobert G.G.Wilson Wilson v_,2010年5月17日*) %t A019444 Fold[追加[#1,#2天花板#2/GoldenRatio]—总计【35; 1】】&,{1},范围[2,70]](*UBirkas Gyorgy Gyogy 2012年5月25日*) %o A019444(PARI)al(n)=本地(v,s,s,FNn)FN(v,s,s,FNYENRATIO总[#总计[#1 d);v=矢量(n);v[1]=s=1;对于(k=2,n,fnd=0;对于(i=1,k-1,if(v[i]=s,fnd=1;break));v[k]=if(fnd,s+k,s);s+=fnd);v\\\\\\\\\\\ u Franklin T.Adams-Watters,2010年5月20日 %o A019444(PARI)A019444-->