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

 


A054578号
{1..n}的子序列数,使得术语对的所有差异都是不同的(即{1..nneneneep上的Golomb标尺数)。
8
1, 3, 6, 12, 21, 35, 56, 90, 139, 215, 316, 462, 667, 961, 1358, 1918, 2665, 3693, 5034, 6844, 9187, 12365, 16416, 21786, 28707, 37721, 49082, 63920, 82639, 106721, 136674, 174894, 222557, 283107, 357726, 451574, 567535, 712855, 890404, 1112080, 1382415
抵消
1,2
配方奶粉
a(n)=A143823号(n) -1-卡尔·纳杰菲2013年1月16日
例子
a(4)=12:[1]、[2]、[3]、[4]、[1,2]、[1.3]、[1,4]、[2,3]、[2,4],[3,4]-阿洛伊斯·海因茨2013年1月16日
MAPLE公司
b: =proc(n,s)局部sn,m;
如果n<1,则为1
否则sn:=[s[],n];m: =nops(sn);
`如果`(m*(m-1)/2=nops(({seq(seq(sn[i]-sn[j],
j=i+1..m),i=1..m-1)}),b(n-1,sn),0)+b(n-1,s)
fi(菲涅耳)
结束时间:
a: =进程(n)a(n):=b(n-1,[n])+`如果`(n=0,-1,a(n-1))结束:
seq(a(n),n=1..30)#阿洛伊斯·海因茨2013年1月16日
数学
b[n_,s_List]:=b[n,s]=模块[{sn,m},如果[n<1,1,sn=附加[s,n];m=长度[sn];如果[m(m-1)/2==长度@并集@扁平@表[表[sn[i]-sn[[j]],{j,i+1,m}],{i,1,m-1}],b[n-1,sn],0]+b[n-1,s]]];
a[n]:=a[n]=b[n-1,{n}]+如果[n==0,-1,a[n-1]];
表[打印[n,“”,a[n]];a[n],{n,1,41}](*Jean-François Alcover公司2020年4月28日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n
作者
约翰·莱曼2000年4月11日
扩展
更多术语来自卡尔·纳杰菲2013年1月15日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月20日17:07。包含376075个序列。(在oeis4上运行。)