The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.



(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A154103 Auxiliary array for computing A153835. 3


%S 0,0,1,0,0,1,0,1,0,1,0,0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,1,

%T 1,1,0,0,0,1,0,0,1,1,1,0,1,0,1,0,1,0,1,0,1,0,1,1,0,0,0,1,1,0,0,1,0,1,

%U 0,1,0,0,1,1,0,1,0,1,0,0,0,1,1,0,0,1,0,0,1,1,1,0,0,0,1,0,1,0,1,0,1,0

%N Auxiliary array for computing A153835.

%C A(x,y): A(0,0), A(1,0), A(0,1), A(2,0), A(1,1), A(0,2), ... is 1 if y=0 and x!=0, or if A085207bi(2*x, y) is greater than A085207bi(2*y, x), 0 otherwise.

%H A. Karttunen, <a href="/A154103/b154103.txt">Table of n, a(n) for n = 0..1274</a>

%o (MIT Scheme:)

%o (define (A154103bi x y) (cond ((and (zero? y) (not (zero? x))) 1) ((> (A085207bi (* 2 x) y) (A085207bi (* 2 y) x)) 1) (else 0)))

%o (define (A154103 n) (A154103bi (A002262 n) (A025581 n)))

%Y Transpose: A154104. Cf. A085207, A002262, A025581.

%K nonn,tabl

%O 0,1

%A _Antti Karttunen_, Jan 05 2009

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 24 15:05 EDT 2021. Contains 346273 sequences. (Running on oeis4.)