# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a284565 Showing 1-1 of 1 %I A284565 #11 Oct 13 2017 00:31:59 %S A284565 1,1,1,2,2,2,3,2,2,4,4,3,4,4,3,3,3,4,6,5,5,7,6,4,5,6,6,6,5,5,5,3,3,6, %T A284565 7,6,8,9,8,7,7,9,11,9,8,10,8,5,6,8,9,9,9,10,10,7,6,9,9,7,7,7,5,4,4,6, %U A284565 9,8,9,12,11,8,10,13,14,13,12,13,12,8,8,13,15,13,15,17,15,12,11,14,16,13,11,13,10,6,7,10 %N A284565 Bisection of A000360. %H A284565 Antti Karttunen, Table of n, a(n) for n = 0..8192 %F A284565 a(n) = A000360(2n). %F A284565 a(n) = A001222(A284563(n)). %F A284565 Other identities. For all n >= 1: %F A284565 A007306(n) = a(n-1) + A284566(n-1). %t A284565 a[n_] := a[n] = Which[n == 0, 1, EvenQ@ n, a[n/2] + a[n/2 - 1], True, a[(n - 1)/2] - Mod[(n - 1)/2 - 1, 3] + 1]; Table[a[2 n], {n, 0, 97}] (* _Michael De Vlieger_, Apr 05 2017, after _Jean-François Alcover_ at A000360 *) %o A284565 (Scheme) %o A284565 (define (A284565 n) (A001222 (A284563 n))) %o A284565 (define (A284565 n) (A000360with_prep_0 (+ n n 1))) ;; See code in A284556. %Y A284565 Cf. A000360, A001222, A007306, A284556, A284563, A284566. %K A284565 nonn %O A284565 0,4 %A A284565 _Antti Karttunen_, Apr 05 2017 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE