登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A007003号
优惠安排数量的欧拉变换。
2
1, 2, 5, 19, 97, 658, 5458, 53628, 606871, 7766312, 110811174, 1743359979, 29972475254, 558940415943, 11235765584497, 242168565186139, 5570683131749362, 136215122718876230, 3527978807819506487, 96480528944412962039, 2778048842021042988465
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
0,2
链接
阿洛伊斯·海因茨,
n=0..160时的n,a(n)表
N.J.A.斯隆,
变换
配方奶粉
a(n)~n!/
(2*(对数(2))^(n+1))-
瓦茨拉夫·科特索维奇
2014年8月25日
MAPLE公司
带有(numtheory):etr:=proc(p)local b;
b: =proc(n)选项记忆;
局部d,j;
如果n=0,则1另外加(加(d*p(d),d=除数(j))*b(n-j),j=1..n)/n fi结束:f:=proc(n)选项记住;
局部k;
如果n<=1,则另加1(二项式(n,k)*f(n-k),k=1..n)fi结束:aa:=etr(k->f(k-1)):a:=n->aa(n+1):seq(a(n),n=0..30)#
阿洛伊斯·海因茨
2008年9月8日
数学
etr[p_]:=模块[{b},b[n_]:=b[n]=如果[n==0,1,Sum[Sum[d*p[d],{d,Divisitors[j]}]*b[n-j],{j,1,n}]/n];
b] ;
f[n_]:=f[n]=如果[n<=1,1,和[二项式[n,k]*f[n-k],{k,1,n}]];
aa:=etr[f[#-1]&];
a[n]:=aa[n+1];
表[a[n],{n,0,30}](*
让-弗朗索瓦·奥尔科弗
2014年3月10日之后
阿洛伊斯·海因茨
*)
交叉参考
囊性纤维变性。
A000670号
,
A290352型
.
上下文中的序列:
A188914号
A049984美元
A052866美元
*
A020117年
A054687号
A076669号
相邻序列:
A007000型
A007001号
A007002号
*
A007004号
A007005号
A007006号
关键词
非n
作者
N.J.A.斯隆
.
扩展
更多术语来自
阿洛伊斯·海因茨
2008年9月8日
状态
经核准的