# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a258204
Showing 1-1 of 1

%I A258204 #10 Jul 06 2015 23:41:25
%S A258204 0,0,1,0,1,1,3,3,16,23,80,183,563
%N A258204 Number of one-sided strictly non-overlapping holeless polyhexes of perimeter 2n, counted up to rotation.
%C A258204 For n >= 1, a(n) gives the total number of terms k in A258003 with binary width = 2n + 1, or equally, with A000523(k) = 2n.
%F A258204 Other identities and observations. For all n >= 1:
%F A258204 a(n) = 2*A258206(n) - A258205(n).
%F A258204 a(n) <= A258017(n).
%o A258204 (Scheme)
%o A258204 (define (A258204 n) (let loop ((k (+ 1 (expt 2 (+ n n)))) (c 0)) (cond ((pow2? k) c) (else (loop (+ 1 k) (+ c (if (isA258003? k) 1 0)))))))
%o A258204 (define (pow2? n) (let loop ((n n) (i 0)) (cond ((zero? n) #f) ((odd? n) (and (= 1 n) i)) (else (loop (/ n 2) (1+ i)))))) ;; Gives non-false only when n is a power of two.
%o A258204 ;; Code for isA258003? given in A258003.
%Y A258204 Cf. A057779, A258003, A258017, A258205, A258206.
%K A258204 nonn,more
%O A258204 1,7
%A A258204 _Antti Karttunen_, May 31 2015

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE