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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A269363型 以a(1)=3开头的自然数的词法第一次注入,使得对于所有n>=1,a(n)*a(n+1)都是fibbinary数(A003714号),即在其base-2表示中没有相邻的1。 7
3, 6, 7, 12, 11, 15, 22, 24, 14, 19, 27, 38, 28, 23, 46, 48, 43, 30, 39, 35, 59, 44, 31, 75, 62, 87, 51, 83, 56, 47, 88, 54, 76, 55, 96, 86, 60, 71, 67, 70, 78, 112, 79, 107, 102, 91, 120, 139, 118, 140, 119, 142, 131, 134, 155, 240, 156, 135, 152, 108, 95, 92, 103, 179, 184, 115, 147, 224, 94, 175, 123, 150, 111, 158, 214, 163, 203 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
序列被推测为A091067号.
散点图非常有趣(本质上与269367英镑). 也可与以下图表进行比较A269361型.
链接
数学
fibbinaryQ[n_]:=位与[n,2 n]==0;a[1]=3;a[n_]:=a[n]=对于[k=1,真,k++,如果[Mod[k,4]!=1,如果[fibbinaryQ[a[n-1]k],如果[FreeQ[Array[a,n-1],k],返回[k]]]];表[a[n],{n,1100}](*Jean-François Alcover公司2016年3月2日*)
黄体脂酮素
(方案,defineperm1-宏来自Antti Karttunen公司的IntSeq-library)
(定义1(A269363型n) (cond((=1n)3)(else(let(prev(A269363型(-n 1)))(let loop((k 1))(cond(和(not-lte?(A269363inv_cache k)(-n一))(isa003714?(*k prev)))k)(其他(loop(+1 k))))
(定义(A269363inv_cache n)(A269363型(-n))
;; 在a为#f的情况下,我们也考虑a>b(即不小于b)。
;; (由于defineperm1-macro使用的有状态缓存系统):
(define(not-lte?a b)(cond((not(number?a))#t)(else(>a b)))
(定义(isA003714?n)(=(*3n)(A003987bin(*2n)));;其中A003987bi执行位-XOR(参见A003987号).
交叉参考
囊性纤维变性。269367英镑(条款排名A255070型).
关键字
非n,基础,
作者
Antti Karttunen公司2016年2月25日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月23日15:20。包含371916个序列。(在oeis4上运行。)