|
|
|
|
#15通过迈克尔·德弗利格2023年1月8日星期日15:46:59 EST |
|
|
|
#14通过安蒂·卡图恩2023年1月8日周日14:27:07 EST |
|
|
|
#13通过安蒂·卡图恩2023年1月8日星期日03:07:47 EST |
| 链接
|
Antti Karttunen,<a href=“/A359577型/b359577.txt“>n表,n=1..65537时为a(n)</a>
|
| 状态
|
经核准的
编辑
|
|
|
|
#12通过迈克尔·德弗利格2023年1月7日星期六22:26:12 EST |
|
|
|
#11通过阿洛伊斯·海因茨2023年1月7日星期六20:57:00 EST |
|
|
|
#10通过阿洛伊斯·海因茨2023年1月7日星期六20:56:56 EST |
| MAPLE公司
|
g: =proc(n)选项记忆;
igcd(n,n*加(i[2]/i[1],i=系数(n)[2]))
结束时间:
a: =proc(n)选项记忆`如果`(n=1,1,-add(
a(d)*g(n/d),d=numtheory[除数](n)减去{n})
结束时间:
seq(a(n),n=1..120)#阿洛伊斯·海因茨2023年1月7日
|
| 状态
|
提出
编辑
|
|
|
|
#9通过阿米拉姆·埃尔达尔2023年1月7日星期六05:49:12 EST |
|
|
|
#8通过阿米拉姆·埃尔达尔2023年1月7日星期六05:49:09 EST |
| 数学
|
d[0]=d[1]=0;d[n_]:=n*Plus@@((Last[#]/First[#])和/@FactorInteger[n]);s[n_]:=GCD[n,d[n]];a[1]=1;a[n_]:=a[n]=-除数和[n,s[n/#]*a[#]&,#<n&];数组[a,100](*阿米拉姆·埃尔达尔,2023年1月7日*)
|
| 状态
|
提出
编辑
|
|
|
|
#7个通过安蒂·卡图恩2023年1月7日星期六05:48:23 EST |
|
|
|
#6通过安蒂·卡图恩美国东部时间2023年1月7日星期六05:47:55 |
|
|
讨论
|
2007年1月6日
| 05:48
| 安蒂·卡图恩:另一方面,我们想让我们的序列名称“少一些chasey”。现在好多了吗?
|
|
|
|