瓦茨拉夫·科特索维奇（Vaclav Kotesovec），<a href=“/A000368号/b000368号_1.txt“>n，a（n）表，n=4..2000（Sean a.Irvine的术语4..43，Washington Bomfim的术语44.200）

提出

经核准的

OEIS服务器：已将新的b文件安装为b000368.txt。旧的b文件现在是b000368_1.txt。

编辑

提出

（帕里))克(问)={我的(V（V）=Vec公司(问),D类=设置(V（V）),d日=#D类);如果(d日==4,返回(三*如果[D类[1]]*如果[D类[2]]*如果[D类[三]]*如果[D类[4]]));

克(问) = {我的(V（V）=Vec公司(问),D类=设置(V（V）),d日=#D类);如果(d日==4,返回(三*如果[D类[1]]*如果[D类[2]]*如果[D类[三]] *如果[D类[4]]));如果（d==1，则返回（（f[d[1]]^4+2*f[d[1]]^3+3*f[D1]]^2+2*f[1]]）/8）；

我的（k=1,,米=#=================================================================#选择（x->x====D[k]，V),),t） ；而（m==1,,k++；米=#=================================================================#选择（x->x====D[千],],V（V）))；))；t=D[1]；D[1]=D[k]；D[k]=t；

序列（maxn）={my（s，a=向量（maxn))；),U型);f=矢量（max_n）；f[1]=1；

对于（j=1，max_n-1，如果(j个%100==0,打印(j个))；f[j+1]=1/j*总和（k=1，j，sumdiv（k，d，d*f[d]）*f[j-k+1]）；

对于（n=4，max_n，s=0；对于部分（Q=n，秒+=克(如果( (问), [1,n个][4,[4]);一] >问[三]) && (问[n个] =秒);一三]-1>问[4..最大值_n个] }; \\ _华盛顿 邦芬_,七月 19 2012 和 12月 22 20202]),

U=U/（f[Q[4]+1]*f[Q[3]-1]）*f[Q[4]*f[Q[3]]，U=g（Q））；s+=U，

[1，n]，[4，4]）；a[n]=s；如果（n%100==0，打印（n“：”s））；[4..max_n]}；

\\华盛顿·邦菲姆2012年7月19日和2020年12月22日

检验过的

编辑

提出

检验过的

华盛顿·邦菲姆：对不起，下次不能有超过80个字符的行。在我的程序中计算10000个项是不实际的。我现在是n=1600。它可能会运行一整天，以达到n=2000。

编辑

提出

华盛顿·邦菲姆：嗨，瓦茨拉夫，我将尝试计算第2000学期，看看我们的结果是否相同。

华盛顿·邦菲姆：a（2000年）=606763465480747938910827949071093919312968282214726206935913618465860642124540831440639998880347857176159040780829712632666264400087482228208377491906312943183191908038957316960539782226988146289283785318324266124803935200853744194457207806244134292867487608319643266895852562419787596111095383589013241792782593060980075691286147650767516115809180327056016071692384284718442479408813594926489191924747084461184581647172560098415576680272137540190069262450921360520446832227434467923857870746173337718994269579988076355954553313147761051980070718801918394621964755484086844897288295397880720025015834716367834986800348613318775130270890537389985644496178039124179123402922422673168875790651565470185942087355725525539452334850648034191822919176580632845372189136218412262207169312726812839865514690607207868027861129506176490824319542862365082874968610645432592685495636082643420568109857616564328312833479346557315738589943601226733413

米歇尔·马库斯：22:04下次请说：相同/不相同

瓦茨拉夫·科特索维奇：华盛顿，很高兴你得到了相同的号码，但下次请不要输入超过80个字符的行。它彻底瓦解了格式。顺便说一句，我已经计算了10000个值。。。

瓦茨拉夫·科特索维奇：但是，您的PARI程序不提供任何输出。如何显示值，例如4到20？

瓦茨拉夫·科特索维奇：啊，seq（20）给出了条件。

对于（n=4，max_n，s=0；对于（Q=n，s+=g（Q），[1，n]，[4，4]）；a[n]=s）；a[4..最大n] }; \\ _] }; \\ _2012年7月19日至2020年12月22日，华盛顿·邦菲姆

提出

编辑

编辑

提出

my（k=1，m=#select（x->x==D[k]，V），t）；而（m==1，k++；m=#选择（x->x==D[k]，V））；t吨=D类[1];D类[1] =D类[k个];D类[k个] =t吨;

t=D[1]；D[1]=D[k]；D[k]=t；

提出

编辑

华盛顿·邦菲姆：我（在记事本中）仔细编辑了PARI程序。剧本行得通，我抄下来了在这个页面上，程序显示如下。。。如果我按“编辑”，程序显示正常……希望序列发布时一切正常。

编辑

提出