登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A205138号 对于满足1<=j<k的某些j,n除s(k)-s(j),其中s(j)=j(3j-1)/2,第j个五角数。 9
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,5,11,22,9,5,7,10,13,18,6,8,8,11,15,13,6,9,7,13,6,10,15,10,29,10,9,8,7,11,15,15 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,1

评论

看到了吗A204892号相关序列的讨论和指南。

链接

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

数学

s[n_x]:=s[n]=n(3N-1)/2;z1=500;z2=60;

表[s[n],{n,1,30}](*A000326号,五边形*)

u[m_x]:=u[m]=展平[表[s[k]-s[j],{k,2,z1},{j,1,k-1}]][[m]]

表[u[m],{m,1,z1}](*A205136号*)

v[n,h_u]:=v[n,h]=如果[IntegerQ[u[h]/n],h,0]

w[n_x]:=w[n]=表[v[n,h],{h,1,z1}]

d[n_x]:=d[n]=第一个[删除[w[n],位置[w[n],0]]]

表[d[n],{n,1,z2}](*A205137号*)

k[n_x]:=k[n]=楼层[(3+Sqrt[8 d[n]-1])/2]

m[n_x]:=m[n]=楼层[(-1+Sqrt[8 n-7])/2]

j[n_x]:=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*)

交叉引用

囊性纤维变性。A000326号,A204892号,A205143.

上下文顺序:A323381型 A060609年 A330882型*A233763号 A109526电话 A3094飞机

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

关键字

作者

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

状态

经核准的

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

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

上次修改时间:2020年9月26日16:43。包含337374个序列。(运行在oeis4上。)