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

 

标志


提示
问候整数序列的在线百科全书!)
A205138 最小k,使得n分S(k)-s(j)满足j满足1<J<k,其中S(j)=J(3J-1)/ 2,第j个五边形数。
2, 2, 4,2, 4, 5,3, 6, 10,4, 3, 7,5, 8, 5,6, 4, 10,7, 8, 4,8, 5, 7,6, 13, 28,9, 6, 5,11, 22, 9,5, 7, 10,5, 7, 10,γ,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,1

评论

A20892为相关序列的讨论和指导。

链接

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

Mathematica

s[n]:=s[n]=n(3 n- 1)/2;Z1=500;Z2=60;

表[S[n],{n,1, 30 }](*)A000 0326五角形*)

U[MY]:= U[M] =平坦[表[S[K] -S [j],{k,2,Z1},{j,1,k- 1 }] ] [[M]

表[U[M ],{M,1,Z1}](*)A205136*)

v[n],Hy]:= v[n,h ]=I[整数] [u[H] /n],h,0 ]

W[n]:= W[n]=表[V[n,h ],{h,1,Z1}]

d[n]:= d[n]=第一[删除[W[n],位置[W[n],0 ] ]

表[D[n],{n,1,Z2}](*)A205137*)

k[n]:=k[n]=楼层[(3 +平方r[ 8 d[n] - 1 ])/ 2 ]

M[n]:= M[n]=楼层[(-1 +SqRT(8 n- 7)] / 2 ]

J[n]:= j[n]=d[n] -m[d[n](m[d[n])+ 1)/ 2

表[k[n],{n,1,Z2}](*)A205138*)

表[j[n],{n,1,Z2}](*)A205139*)

表[S[k[n] ],{n,1,Z2}](*)A205140*)

表[S[j[n] ],{n,1,Z2}](*)A205141*)

表[s[k[n] ] s[j[n],{n,1,Z2}](*)A205142*)

表[(S[K[n])s[j[n])/n,{n,1,Z2}](*)A205143*)

交叉裁判

囊性纤维变性。A000 0326A20892A205143.

语境中的顺序:A079314 A323 A060609*A33663 A109526 A309894

相邻序列:A205135 A205136 A205137*A205139 A205140 A205141

关键词

诺恩

作者

克拉克·金伯利1月25日2012

地位

经核准的

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

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

最后修改1月27日1430 EST 2020。包含331295个序列。(在OEIS4上运行)