A092482-OEIS公司

A092482号

序列除了初始项1、2、3之外，不包含任何三项算术级数。

1, 2, 3, 6, 7, 14, 15, 17, 18, 36, 37, 39, 40, 45, 46, 48, 49, 98, 99, 101, 102, 107, 108, 110, 111, 125, 126, 128, 129, 134, 135, 137, 138, 276, 277, 279, 280, 285, 286, 288, 289, 303, 304, 306, 307, 312, 313, 315, 316, 357, 358, 360, 361, 366, 367, 369, 370

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

a（1）=1，a（2）=2，a（3）=3；a（n）是最小k，因此a（1）、a（2）、……、。。。，a（n-1），k构成算术级数，除了第一个三元组（1,2,3）。

链接

David A.Corneth，n=1..8193时的n，a（n）表（前512个术语由Jean-François Alcover编写）

埃里克·魏斯坦的数学世界，非算术级数。

与非平均序列相关的索引项

配方奶粉

对于n>2，a（n+2）=1+2^层（log_2（n））+Sum_{k=1..n}（3^A007814号（n） +1）/2=1+A053644号（n）+A005836号（n）（推测并检查到n=512）。

数学

a[n]：=a[n]=如果[n<4，n，对于[k=a[n-1]+1，真，k++，sp=SequencePosition[Append[Array[a，n-1]，k]，{x_，___，y_，___,z_}/；y-x==z-y，2]；如果[sp=={{1,3}}，返回[k]]]；

表[打印[n，“”，a[n]]；a[n]，{n，1，512}]

（*与推测公式中的数据进行比较：*）

b[n_]：=如果[n<4，n，1+2^（长度[id=整数位数[n-2，2]]-1）+起始位数[id，3]]；

表[b[n]，{n，1，512}](*Jean-François Alcover公司，2019年1月15日*）

（*第二个[快得多]程序：*）

最大[m_]：=模块[{n，v，i，j}，n=最大[m，3]；v=表[1，{n}]；对于[i=3，i<=n-1，i++，如果[v[[i]]==1，对于[j=Max[1，2i-n]，j<=Min[2n-i，i-1]，j++，如果[v[[j]]==1，v[[2i-j]]=0]]]；位置[v，1]//展平]；高达[12000](*Jean-François Alcover公司2019年1月16日之后大卫·A·科内斯*)

黄体脂酮素

（PARI）小于等于（n）=n=最大值（n，3）；v=矢量（n，i，1）；对于（i=3，n-1），如果（v[i]==1，对于（j=最大（1，2*i-n），最小（2*n-i，i-1），c=2*i-j；如果（v[j]==1，v[2*i-j]=0；）））；选择（x->x==1，v，1）\\大卫·A·科内斯2019年1月15日

交叉参考

囊性纤维变性。A004793号,A033157号.

上下文中的序列：A309815 A256800型 A172105号*A335099型 A147303号 A346593飞机

相邻序列：A092479号 A092480号 A092481号*A092483号 A092484号 A092485型

关键词

非n

作者

拉尔夫·斯蒂芬2004年4月4日

扩展

姓名澄清人查尔斯·格里特豪斯四世2014年1月30日

状态

经核准的