|
%I #10 Dec 11 2017 05:13:09
%S 0,1,2,3,1,1,4,5,6,7,5,5,2,3,2,3,3,3,1,1,3,3,1,1,8,9,10,11,9,9,12,13,
%T 14,15,13,13,10,11,10,11,11,11,9,9,11,11,9,9,4,5,6,7,5,5,4,5,6,7,5,5,
%U 6,7,6,7,7,7,5,5,7,7,5,5,2,3,2,3,3,3,6,7,6,7,7,7,2,3,2,3,3,3,3,3,3,3,3,3,1,1,3,3,1,1,5,5,7,7,5,5,3
%N a(0) = 0, for n >= 1, a(n) = A275736(n) OR a(A257684(n)), where OR is given by A003986.
%H Antti Karttunen, <a href="/A276010/b276010.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) OR a(A257684(n)), where OR is given by A003986.
%F a(n) = A087207(A275734(n)).
%F Other identities. For all n >= 1:
%F A000120(a(n)) = A060502(n).
%o (Scheme, two versions, first one using memoization-macro definec)
%o (definec (A276010 n) (if (zero? n) n (A003986bi (A275736 n) (A276010 (A257684 n))))) ;; Where A003986bi implements bitwise-OR (A003986)
%o (define (A276010 n) (A087207 (A275734 n)))
%Y Cf. A003986, A087207, A257684, A275734.
%Y Cf. also A000120, A060502, A275736, A275728, A275808.
%K nonn,look,base
%O 0,3
%A _Antti Karttunen_, Aug 17 2016
|
