login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(0) = 0, for n >= 1, a(n) = A275736(n) OR a(A257684(n)), where OR is given by A003986.
3

%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