%I #10 Aug 11 2016 23:47:37
%S 0,1,2,3,1,0,4,5,6,7,5,4,2,3,0,1,3,2,1,0,3,2,0,1,8,9,10,11,9,8,12,13,
%T 14,15,13,12,10,11,8,9,11,10,9,8,11,10,8,9,4,5,6,7,5,4,0,1,2,3,1,0,6,
%U 7,4,5,7,6,5,4,7,6,4,5,2,3,0,1,3,2,6,7,4,5,7,6,0,1,2,3,1,0,3,2,1,0,2,3,1,0,3,2,0
%N a(0) = 0, for n >= 1, a(n) = A275736(n) XOR a(A257684(n)), where XOR is given by A003987.
%H Antti Karttunen, <a href="/A275808/b275808.txt">Table of n, a(n) for n = 0..40320</a>
%H <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>
%F a(0) = 0, for n >= 1, a(n) = A275736(n) XOR a(A257684(n)), where 2-argument function XOR is given by A003987.
%F a(n) = A248663(A275734(n)).
%o (Scheme, with memoization-macro definec)
%o (definec (A275808 n) (if (zero? n) n (A003987bi (A275736 n) (A275808 (A257684 n))))) ;; Where A003987bi implements bitwise-XOR (A003987)
%Y Cf. A003987, A248663, A257684, A275734, A275736.
%Y Cf. A275809 (positions of zeros), A275810 (and their first differences).
%Y Cf. also A275728.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, Aug 09 2016
|