登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A081974号 a(1)=1和不在前面出现的最小数,使得两个相邻项的乘积是一个不同的三角形数,其中“distinct”意味着a(n)*a(n+1)可能不等于任何前两个连续项的乘数。 2
1, 3, 2, 5, 9, 4, 7, 13, 6, 11, 21, 10, 12, 23, 45, 14, 27, 53, 26, 30, 33, 16, 31, 15, 20, 41, 81, 40, 52, 103, 51, 25, 49, 24, 47, 93, 46, 91, 60, 76, 151, 75, 37, 18, 112, 115, 57, 28, 55, 39, 19, 87, 43, 22, 133, 66, 58, 117, 35, 17, 8, 395, 126, 141, 70, 102, 90, 116, 231 (列表;图表;参考;;历史;文本;内部格式)
抵消
1, 2
评论
也许是自然数的另一种重新排列。
链接
例子
5和4是9的邻居,分别表示三角形数45和36。
数学
istriang[n_]:=与[{x=楼层[Sqrt[2*n]]},n==x*(x+1)/2];
nmax=75;
清除[a,used,tris];
a[_]=0;使用[_]=0;tris[_]=0;a[1]=1;使用[1]=1;
对于[i=2,i<=nmax,i++,f=a[i-1];j=2;当[使用[j]==1||!istriang[f*j]|tris[f*j]==1,j++];a[i]=j;使用[j]=1;三[f*j]=1];
表[a[n],{n,1,nmax}](*Jean-François Alcover公司2024年5月23日,PARI代码后*)
黄体脂酮素
(PARI)istriang(n)=本地(x);x=地板(平方米(2*n));n==x*(x+1)/2;
A=矢量(75);使用=矢量(1000);tris=矢量(50000);A[1]=1;used[1]=1;对于(i=2,75,f=A[i-1];j=2;while(使用[j]||!istriang(f*j)||tris[f*j],j=j+1);A[i]=j;使用[j]=1;三[f*j]=1);打印(A)
交叉参考
囊性纤维变性。A081975号,A081976号,A081977号.
关键词
非n
作者
扩展
更多术语来自大卫·沃瑟曼2004年7月26日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日10:24。包含373543个序列。(在oeis4上运行。)