登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

γ

标志


提示
问候整数序列的在线百科全书!)
A000 7898 A(n)=psiiC(n),其中乘积{k>1 } 1 /(1-1/k^ s)^A000 7897(k)=SuMu{{K> 0 } psiiC(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,18, 24, 48,γ,y,γ,y,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,3

推荐信

F. V. Weinstein,Fibonacci分区,预印本,1995。

链接

n,a(n)n=1…68的表。

F. V. Weinstein关于Fibonacci分区的注记,阿西夫:数学/ 0307150 [数学.NT ],2003—2018。

例子

gf= x+x^ 2+2×x ^ 3+3×x ^ 4+3×x ^ 5+4×x ^ 6+4×x ^ 7+7×x ^++×*^ ^+…

Mathematica

DRCON[V],WY]:= [{LV=长度[V],LW=长度[W],FV,FW},FV[n]:= I[N<LV,V[[n],0 ];FW[n]:= I[N<=Lw,W[[n],0 ];表[DiRixLeCurvV[Fv[n],FW[n],n,M],{m,min [Lv,LW] }] ];

a[n_] := Module[{A, v, w, m}, If[n<1, 0, v = Table[Boole[k == 1], {k, n}]; For[k = 2, k <= n, k++, m = Length[IntegerDigits[n, k]] - 1; A = Product[ {p, e} = pe; If[p == 2, If[e<3, e, 2^(e-2) + 2], 1 + p^(e-1) (p-1)/2], {pe, FactorInteger[k]}]; A = (1-x)^-A + x O[x]^m // Normal; w = Table[0, {n}]; For[i = 0, i <= m, i++, w[[k^i]] = Coefficient[A, x,i];v=DrCON[V,W];V[[n] ] ];

数组[ A,68 ](*)让弗兰,11月12日2018,从帕里*)

黄体脂酮素

(PARI) {a(n) = my(A, v, w, m, p, e); if( n<1, 0, v = vector(n, k, k==1); for(k=2, n, m = #digits(n, k) - 1; A = factor(k); A = prod( j=1, matsize(A)[1], if( p = A[j, 1], e = A[j, 2]; if( p==2, if( e<3, e, 2^(e-2) + 2), 1 + p^(e-1) * (p-1) / 2))); A = (1 - x)^ -A + x * O(x^m); w = vector(n); for(i=0, m, w[k^i] = polcoeff(A, i)); v = dirmul(v, w)); v[n] };/*米迦勒索摩斯5月26日2014*

交叉裁判

囊性纤维变性。A000 7896A000 7897.

语境中的顺序:A168173 A095916 A130121*A10533 A131285 A30596

相邻序列:γA000 7895 A000 7896 A000 7897*A000 7899 A000 7900 A000 7901

关键词

诺恩

作者

Felix Weinstein(WAIN(AT))

扩展

新定义米歇尔马库斯5月12日2014

编辑定义斯隆5月26日2014

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改2月25日22:55 EST 2020。包含332270个序列。(在OEIS4上运行)