搜索： a329320-编号：a329320
|
| |
| |
|
|
|
1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 3, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, 2, 3, 1, 2, 2, 2, 2, 2, 3, 2, 1, 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, 2, 3, 2, 3, 3, 3, 3, 2, 3, 3, 1, 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, 2, 3, 1, 2, 2, 2, 2, 2, 3, 2, 2, 3, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,6
|
|
|
评论
|
考虑序列b=A116470型由所有斐波那契数和卢卡斯数组成。对于n>=0，设k（1）是基b={b（k）}中的最大k，使得b（kA000045美元作为基础（称为Zeckendorf或Fibonacci，rep），也与rep一起使用A000032号作为基础（称为卢卡斯代表），自然会问这样一个问题：b中的哪些术语可能跟在给定的b（k）后面？答案如下。
如果b（k）<21=b（11），则可以很容易地找到b（k。否则，如果k是奇数，那么对于某些i>=5，b（k）可以后跟b（k-i）；如果k是偶数，那么对于某些i>=8，b（k）可以后跟b（k-i）。在Zeckendorf和Lucas代表中，i>=2的“滞后”是k-i。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
示例
|
设F、L、U表示斐波纳契（又称Zeckendorf）、卢卡斯和贪婪的F-union-L表示。然后45=34+8+3（F）=29+11+4+1（L）=34+11（U），这表明a（45）=2，并且45的U表示比其他表示需要更少的项；45是具有此属性的最小数字。
|
|
|
数学
|
s=反向[Union[Flatten[Table[{Fibonacci[n+1]，LucasL[n-1]}，{n，1，22}]]；地图[Length[Select[Reap[FoldList[（Sow[Quotient[#1，#2]]；Mod[#1、#2]）&，#，s]]
[[2，1]]，#>0&]]&，范围[120]]
|
|
|
黄体脂酮素
|
（PARI）w（n）=如果（n%2，斐波那契（n \2+3），斐波纳契（n \ 2）+斐波那奇（n \ 2+2））；
k（n）=如果（n<9，返回（如果（n==6，5，n））；对于（i=8，n，如果（w（i）>n，返回（w（i-1）））；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A239907型
|
| 让cn（n，k）表示n的二进制表示中出现11..1（k1）的次数；a（n）=n-cn（n，1）+cn（n，2）-cn（n，3）+cn（n，4）-。 |
|
+10
4
|
|
|
|
0, 0, 1, 2, 3, 3, 5, 5, 7, 7, 8, 9, 11, 11, 12, 13, 15, 15, 16, 17, 18, 18, 20, 20, 23, 23, 24, 25, 26, 26, 28, 28, 31, 31, 32, 33, 34, 34, 36, 36, 38, 38, 39, 40, 42, 42, 43, 44, 47, 47, 48, 49, 50, 50, 52, 52, 54, 54, 55, 56, 58, 58, 59, 60, 63, 63, 64, 65, 66, 66, 68, 68, 70, 70, 71, 72, 74, 74, 75
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,4
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
MAPLE公司
|
cn:=proc（v，k）局部n，s，nn，i，j，som，kk；
som:=0；
kk:=转换（cat（seq（1，j=1..k）），字符串）；
n：=转换（v，二进制）；
s：=转换（n，字符串）；
nn:=长度；
对于i到nn-k+1 do
如果子串（s，i…i+k-1）=kk，则som:=som+1 fiod；
som；结束；
g： =n->添加（（-1）^i*cn（n，i），i=1..10）；#假设n<1023
[序列（n+g（n），n=0..100）]；
|
|
|
数学
|
cn[n_，k_]：=计数[分区[IntegerDigits[n，2]，k，1]，表[1，{k}]]；表[n-求和[cn[n，i]，{i，1，IntegerLength[n，2]，2}]+求和[cn[n，i]，{i,2，Integer Length[n，2]，2}]，{n，0，78}](*迈克尔·德弗利格2015年9月18日*）
|
|
|
黄体脂酮素
|
（平价）
binruns（n）={
如果（n==0，则返回（[1,0]）；
my（bag=List（），v=0）；
而（n！=0，
v=估价（n，2）；listput（bag，v）；n>>=v；n++；
v=估价（n，2）；listput（bag，v）；n>>=v；n--）；
返回（Vec（袋））；
};
a（n）={
my（v=binrun（n））；
n-sum（i=1，#v，如果（i%2==0，（v[i]+1）\ 2，0））
};
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础,改变
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.038秒内完成
|
