|
|
|
|
|
|
|
|
|
#19通过阿洛伊斯·海因茨2021年3月1日星期一06:08:03 EST |
|
|
|
|
|
|
|
#18通过Jean-François Alcover公司2021年3月1日星期一03:57:53 EST |
|
|
|
|
|
|
|
#17通过Jean-François Alcover公司2021年3月1日星期一03:57:40 EST |
|
| 数学
|
ietr[p_]：=模块[{a，c}，
c[n]：=c[n]=n*p[n]-和[c[j]*p[n-j]，{j，1，n-1}]；
a[n_]：=a[n]=如果[n==0，1，总和[MoebiusMu[n/d]*c[d]，
{d，除数[n]}]/n]；a] ；
aa=ietr[a]；
a[n_]：=如果[n<=1，1，aa[n-1]]；
数组[a，48](*Jean-François Alcover公司2021年3月1日之后阿洛伊斯·海因茨*)
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#16通过阿洛伊斯·海因茨2017年2月20日星期一16:05:29 EST |
|
|
|
|
|
|
|
#15通过阿洛伊斯·海因茨2017年2月20日星期一16:05:21 EST |
|
| MAPLE公司
|
使用（numtheory）：ietr:=proc（p）局部a，c；c： =proc（n）选项记忆；局部j；n*p（n）-添加（c（j）*p（n-j），j=1..n-1）结束；a： =proc（n）选项记忆；局部d`如果`（n=0，1，添加((莫比乌斯((n/d）*c（d），d=除数（n））/n）结束：aa:=ietr（'a'）：a:=n->`if`（n<=1，1，aa（n-1））：seq((a（n），n=1..48）#阿洛伊斯·海因茨2008年9月8日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#14通过乔恩·肖恩菲尔德2015年12月19日星期六09:57:00 EST |
|
|
|
|
|
|
|
#13通过乔恩·肖恩菲尔德美国东部时间2015年12月19日星期六09:56:58 |
|
|
|
|
|
|
|
#12通过阿洛伊斯·海因茨2012年7月10日星期二19:57:43 EDT |
|
|
|
|
|
|
|
#11通过阿洛伊斯·海因茨2012年7月10日星期二19:57:38 EDT |
|
| MAPLE公司
|
使用（numtheory）：ietr:=proc（p）局部a，c；c： =proc（n）选项记忆；局部j；n*p（n）-添加（c（j）*p（n-j），j=1..n-1）结束；a： =proc（n）选项记忆；局部d`如果`（n=0,,1，add（mobius（n/d）*c（d），d=除数（n））/n）end-end:aa:=:=ieter（'a'）：a：=n->`-> `如果`（n<=1，1，aa（n-1））：seq（a（n），n=1.48); #); # _阿洛伊斯·海因茨,_,2008年9月8日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#10通过俄罗斯考克斯2012年3月30日星期五17:37:06 EDT |
|
| 作者
|
_克里斯蒂安·鲍尔(保龄球(自动变速箱)美国.网),_,1999年1月4日。
|
|
|
|
|
讨论
|
| 3月30日星期五
| 17:37
| OEIS服务器: https://oeis.org/edit/global/178
|
|
|
|
|
|
