|
%I #8 Aug 31 2018 03:46:40
%S 0,1,0,2,0,6,6,18,26,66,110,242,450,922,1826,3674,7290,14586,29178,
%T 58410,116538,233258,466114,932426,1864586,3729274,7457386,14915578,
%U 29828762,59659322,119313866,238631866,477253498,954516442,1909012410,3818036378,7636034202
%N a(0) = 0, a(1) = 1; for n > 1, a(n) = Sum_{k=0..n-2} a(k) XOR a(n-k-2).
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/XOR.html">XOR</a>
%F a(n) ~ c * 2^n, where c = 0.111118791917413048987034558666...
%p a:= proc(n) option remember; `if`(n<2, n,
%p add(Bits[Xor](a(k), a(n-k-2)), k=0..n-2))
%p end:
%p seq(a(n), n=0..40); # _Alois P. Heinz_, Aug 30 2018
%t a[0] = 0; a[1] = 1; a[n_] := a[n] = Sum[BitXor[a[k], a[n - k - 2]], {k, 0, n - 2}]; Table[a[n], {n, 0, 36}]
%Y Cf. A007462, A192484.
%K nonn
%O 0,4
%A _Ilya Gutkovskiy_, Aug 30 2018
|
