A084662-OEIS公司

A084662美元

a（1）=4；a（n）=a（n-1）+gcd（a（n-1），n）。

4, 6, 9, 10, 15, 18, 19, 20, 21, 22, 33, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 69, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 141, 144, 145, 150, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168

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

抵消

1,1

参考文献

埃里克·S·罗兰（Eric S.Rowland），《一个简单的生成素数的递归》（Abstracts Amer）。数学。Soc.，29（2008年第1期），第50页（摘要1035-11-986）。

链接

因德拉尼尔·戈什，n=1..50000时的n，a（n）表（T.D.Noe的条款1..1000）

埃里克·S·罗兰，一个简单的素数生成递归，arXiv:071.3217[math.NT]，2007-2008年。

MAPLE公司

S:=4；f:=proc（n）选项记忆；全球S；如果n=1，则S else f（n-1）+igcd（n，f（n-1））；fi；结束；

数学

a[1]=4；a[n]：=a[n]=a[n-1]+GCD[n，a[n-2]；表[a[n]，｛n，70｝]

nxt[{n_，a_}]：={n+1，a+GCD[a，n+1]}；嵌套列表[nxt，{1，4}，70][[全部，2]](*哈维·P·戴尔，2018年12月25日*）

黄体脂酮素

（最大值）a[1]：4$a[n]：=a[n-1]+gcd（a[n-1，n）$makelist（a[n，n，1，66）/*布鲁诺·贝塞利2011年5月24日*/

（Magma）[n eq 1选择4其他Self（n-1）+Gcd（Self，n-1），n）：n in[1.66]]//布鲁诺·贝塞利2011年5月24日

（哈斯克尔）

a084662 n=a084662_列表！！（n-1）

a084662_列表=

4:zipWith（+）a084662_list（zipWithgcd a084662 _list[2..]）

--莱因哈德·祖姆凯勒2013年11月15日

（SageMath）

@缓存函数

定义a（n）：#a=A084662美元

if（n=1）：返回4

else：返回a（n-1）+gcd（a（n-l），n）

[a（n）代表范围（1,71）中的n]#G.C.格鲁贝尔2023年3月22日

交叉参考

囊性纤维变性。A084663号,A106108号和中提到的其他序列A106108号.

囊性纤维变性。A134734号（第一差异），A134736号,A230504型.

上下文中的序列：A010462号 A028957号 A242664型*A137167号 A181564号 1996年1月1日

相邻序列：A084659号 A084660号 A084661号*A084663号 A084664号 A084665号

关键词

非n

作者

马修·弗兰克（mfrank（AT）wopr.wolfram.com）代表2003年新型科学暑期学校，2003年7月15日

状态

经核准的