登录
A269361型
以a(1)=1开头的自然数的词法首次注入,使得a(n)*a(n+1)是fibbinary数(A003714号),即在其base-2表示中没有相邻的1。
7
1, 2, 4, 5, 8, 9, 16, 10, 13, 20, 17, 32, 18, 29, 36, 33, 40, 26, 21, 49, 42, 52, 25, 41, 50, 82, 57, 45, 53, 80, 34, 64, 37, 113, 74, 125, 84, 61, 72, 58, 73, 65, 68, 69, 128, 66, 129, 132, 133, 77, 114, 81, 117, 90, 104, 85, 98, 89, 93, 100, 105, 161, 106, 97, 169, 122, 137, 157, 138, 136, 121, 141, 149, 221, 153, 109, 160, 116, 144
抵消
1,2
评论
序列被推测为A091072美元.
链接
黄体脂酮素
(方案,defineperm1-宏来自安蒂·卡图恩的IntSeq-library)
(定义1(A269361型n) (cond((=1n)n)(else(let(prev(A269361型(-n 1)))(let loop((k 1))(cond(和(not-lte?(A269361inv_cache k)(-n一))(isa003714?(*k prev)))k)(其他(loop(+1 k))))
(定义(A269361inv_cachen)(A269361型(-n))
;; 在a为#f的情况下,我们也考虑a>b(即不小于b)。
;; (由于defineperm1-macro使用的有状态缓存系统):
(define(not-lte?a b)(cond((not(number?a))#t)(else(>a b)))
关键词
非n,基础
作者
安蒂·卡图恩2016年2月25日
状态
经核准的