The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A269361 Lexicographically first injection of natural numbers beginning with a(1)=1 such that a(n)*a(n+1) is a fibbinary number (A003714), i.e., has no adjacent 1's in its base-2 representation. 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS The sequence is conjectured to be a permutation of A091072. LINKS Antti Karttunen, Table of n, a(n) for n = 1..65537 PROG (Scheme, with defineperm1-macro from Antti Karttunen's IntSeq-library) (defineperm1 (A269361 n) (cond ((= 1 n) n) (else (let ((prev (A269361 (- n 1)))) (let loop ((k 1)) (cond ((and (not-lte? (A269361inv_cache k) (- n 1)) (isa003714? (* k prev))) k) (else (loop (+ 1 k))))))))) (define (A269361inv_cache n) (A269361 (- n))) ;; We consider a > b (i.e. not less than b) also in case a is #f. ;; (Because of the stateful caching system used by defineperm1-macro): (define (not-lte? a b) (cond ((not (number? a)) #t) (else (> a b)))) CROSSREFS Cf. A003714, A091072, A266121, A266191, A269363, A269365, A269366. Sequence in context: A279793 A305076 A332223 * A200947 A350356 A333256 Adjacent sequences: A269358 A269359 A269360 * A269362 A269363 A269364 KEYWORD nonn,base AUTHOR Antti Karttunen, Feb 25 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 19 18:42 EDT 2024. Contains 373507 sequences. (Running on oeis4.)