A007898-OEIS公司

A007898号

a（n）=psi_c（n），其中产品{k>1}1/（1-1/k^s）^A007897号（k） =和{k>0}psi_c（k）/k^s。

三

1, 1, 2, 3, 3, 4, 4, 7, 7, 6, 6, 12, 7, 8, 12, 16, 9, 15, 10, 18, 16, 12, 12, 32, 17, 14, 22, 24, 15, 30, 16, 34, 24, 18, 24, 48, 19, 20, 28, 48, 21, 40, 22, 36, 45, 24, 24, 78, 32, 37, 36, 42, 27, 54, 36, 64, 40, 30, 30, 96, 31, 32, 60, 78, 42, 60, 34, 54 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,3`
	参考文献	`F.V.Weinstein，《斐波那契分区》，预印本，1995年。`
	链接	`n=1..68时的n、a（n）表。` `F.V.Weinstein，关于斐波那契分区的注记，arXiv:math/0307150[math.NT]，2003-2018年。`
	例子	`G.f.=x+x^2+2x^3+3x^4+3x^5+4x^6+4x^7+7x^8+7*x^9+。。。`
	数学	`dircon[v_，w_]：=模块[{lv=Length[v]，lw=Length[w]，fv，fw}，fv[n_]：=If[n<=lv，v[n]]，0]；fw[n_]：=如果[n<=lw，w[[n]]，0]；表[DirichletConvolve[fv[n]，fw[n]、n、m]、{m、Min[lv、lw]}]；` `a[n_]：=模[{a，v，w，m}，如果[n<1，0，v=表[Boole[k==1]，{k，n}]；对于[k=2，k<=n，k++，m=长度[Integer Digits[n，k]]-1；A=乘积[{p，e}=pe；如果[p==2，如果[e<3，e，2^（e-2）+2]，1+p^（e-1）（p-1）/2]，{pe，因子整数[k]}]；A=（1-x）^-A+x O[x]^m//正常；w=表[0，{n}]；对于[i=0，i<=m，i++，w[[k^i]]=系数[A，x，i]]；v=dircon[v，w]]；v[[n]]]；` `数组[a，68](Jean-François Alcover公司2018年11月12日，PARI）`
	黄体脂酮素	`（PARI）{a（n）=my（a，v，w，m，p，e）；如果（n<1，0，v=向量（n，k，k==1）；对于）；a=（1-x）^-a+xO（x^m）；w=向量（n）；对于（i=0，m，w[k^i]=波尔科夫（a，i））；v=dirmul（v，w））；v[n]）}/迈克尔·索莫斯2014年5月26日*/`
	交叉参考	`囊性纤维变性。A007896号,A007897号.` `上下文中的序列：A168173号 A095916号 A130121号A372594型 A367009型 A110533号` `相邻序列：A007895号 A007896号 A007897号A007899号 A007900型 A007901号`
	关键词	`非n`
	作者	`费利克斯·温斯坦（wain（AT）ana.unibe.ch）`
	扩展	`新定义依据米歇尔·马库斯2014年5月12日` `定义编辑人N.J.A.斯隆2014年5月26日`
	状态	`经核准的`