|
|
|
|
#30通过阿洛伊斯·海因茨2023年3月9日星期四08:04:53 EST |
|
|
|
#29通过Jean-François Alcover公司2023年3月9日星期四05:08:03 EST |
|
|
|
#28通过Jean-François Alcover公司2023年3月9日星期四05:07:57 EST |
| 数学
|
Np[b_,n_]:=Np[b,n]=和[b^d*MoebiusMu[n/d],{d,除数[n]}]/n;
M[b_,n_]:=如果[n==0,0,和[Np[b,h],{h,1,n}]];
nMax[b_,s_]:=模[{n},对于[n=0,True,n++,如果[M[b,n]>s,返回[n-1]]];
a[s_]:=模[{n,b},b=2;n=nMax[b,s];n*(s-M[b,n])+和[(h-1)*Np[b,h],{h,1,n}]];
表[a[n],{n,1,60}](*Jean-François Alcover公司2023年3月9日之后R.J.马塔尔*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#27通过R.J.马塔尔2016年6月9日星期四05:01:09 EDT |
|
|
|
#26通过R.J.马塔尔2016年6月9日星期四05:00:28 EDT |
| 参考文献
|
哈拉尔德·尼德雷特(Harald Niederreiter),《低分辨率和低色散序列》,《数论杂志》30(1988),第1期,第51-70页。
|
| 链接
|
Harald Niederreiter,<a href=“http://dx.doi.org/10.1016/0022-314X(88)90025-X“>低分辨率和低色散序列,《数论》30(1988),第1期,第51-70页。
|
| MAPLE公司
|
N:=程序(b,N)
选项记忆;
局部d;
加(b^d*numtheory[mobius](n/d),d=numtheori[divisors](n));
%/n;
结束进程:
M:=进程(b,n)
局部h;
如果n=0,则
0;
其他的
添加(N(b,h),h=1..N);
结束条件:;
结束进程:
nMax:=进程(b,s)
局部n;
从0到n do
如果M(b,n)>s,则
返回n-1;
结束条件:;
结束do:
结束进程:
A005356号:=进程
局部n,b;
b:=2;
n:=nMax(b,s);
n*(s-M(b,n))+加((h-1)*n(b,h),h=1..n);
结束进程:
序列(A005356号(n) ,n=1..40)#R.J.马塔尔2016年6月9日
|
| 状态
|
经核准的
编辑
|
|
|
|
#25通过N.J.A.斯隆2016年6月7日星期二16:46:04 EDT |
|
|
|
#24个通过肖恩·欧文2016年6月7日星期二美国东部夏令时15:45:19 |
|
|
|
#23通过肖恩·欧文2016年6月7日星期二15:43:26 EDT |
|
|
|
#22通过N.J.A.斯隆2016年5月27日星期五20:52:00 EDT |
|
|
|
#21通过肖恩·欧文2016年5月27日星期五19:56:47 EDT |
|
|
|