|
| |
|
| A022292号 |
| Kolakoski序列前a（n）项的一半A000002号为1（未知为无限）。 |
|
7
|
|
|
|
0, 2, 4, 6, 8, 10, 14, 16, 18, 20, 22, 24, 26, 28, 30, 36, 38, 40, 42, 44, 46, 48, 50, 54, 56, 58, 60, 62, 64, 68, 70, 72, 74, 76, 78, 80, 82, 86, 88, 98, 104, 106, 116, 118, 122, 124, 126, 128, 130, 132, 136, 138, 140, 142, 144, 146, 148, 150, 152, 158
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
配方奶粉
|
猜想：对于常数c<=1，a（n）是c*n*log（n）的渐近形式-贝诺伊特·克洛伊特2003年11月17日
|
|
|
数学
|
k=前置[Nest[Flatten[Partition[#，2]/。{{2, 2} -> {2, 2, 1, 1}, {2, 1} -> {2, 2, 1}, {1, 2} -> {2, 1, 1}, {1, 1} -> {2, 1}}] &, {2, 2}, 14], 1]; (*A000002号*)
选择[Range[400]，Count[Take[k，#]，1]<#/2&](*A074261美元*)
选择[Range[400]，Count[Take[k，#]，1]==#/2&](*A022292号*)
选择[Range[400]，Count[Take[k，#]，1]>#/2&](*A342799飞机*)
|
|
|
黄体脂酮素
|
（JavaScript）
a=新阵列（）；
a[1]=1；a[2]＝2；a[3]=2；cd=1；ap=3；
对于（i=4；i<1000；i++）
{
如果（a[ap]==1）a[i]=cd；
否则{a[i]=cd；a[i+1]=cd，i++}
ap++；
cd=3-cd；
}
oc=0；tc=0；
对于（i=1；i<1000；i++）
{
如果（oc==tc）document.write（i-1+“，”）；
如果（a[i]==1）oc++；
其他tc++；
}
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
