%I#17 2021年10月12日21:54:37
%S 1,4,8,14,20,28,37,46,57,69,82,9510110125142159177196216238260,
%电话:28531035362390418448478511544578613648722761800,
%电话:8428849279711018106511121611210125913091361141314671521
%A342585中0的N个位置。
%这个序列是无限的。
%H Rémy Sigrist,n的表,n=1..10000的a(n)</a>
%H Rémy Sigrist,适用于A343880的PARI程序</a>
%H Rémy Sigrist,n=1..9999的(n,a(n+1)-a(n))的彩色散点图
%e A342585(8)=0,因此8属于该序列。
%t位置[Block[{c,k,m},c[0]=1;{0}~连接~Reap[Do[k=0;而[IntegerQ[c[k]],集[m,c[k];母猪[m];如果[IntegerQ@c[m],c[m]++,c[m]=1];k++];母猪[0];c[0]++,52]][[-1,-1]]],0][[All,1]](*米歇尔·德弗里格,2021年10月12日*)
%o(PARI)参见链接部分。
%o(Python)
%o从集合导入计数器
%o定义aupton(术语):
%o编号,A342585lst,库存,alst,idx=0,[0],计数器([0]),[1],1
%o而len(alst)<术语:
%o idx+=1
%o c=库存【数量】
%o如果c==0:
%o编号=0
%附加附加(idx)
%o其他:
%o编号+=1
%o A342585lst.附录(c)
%o库存更新([c])
%o返回alst
%o打印(aupton(53))#_Michael S.Branicky_,2021年10月12日
%Y参考A342585。
%K nonn公司
%O 1,2号机组
%A Rémy Sigrist,2021年5月2日
|