This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A154103 #4 Mar 31 2012 13:21:17 %S A154103 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 A154103 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 A154103 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 A154103 Auxiliary array for computing A153835. %C A154103 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 A154103 A. Karttunen, <a href="/A154103/b154103.txt">Table of n, a(n) for n = 0..1274</a> %o A154103 (MIT Scheme:) %o A154103 (define (A154103bi x y) (cond ((and (zero? y) (not (zero? x))) 1) ((> (A085207bi (* 2 x) y) (A085207bi (* 2 y) x)) 1) (else 0))) %o A154103 (define (A154103 n) (A154103bi (A002262 n) (A025581 n))) %Y A154103 Transpose: A154104. Cf. A085207, A002262, A025581. %K A154103 nonn,tabl %O A154103 0,1 %A A154103 _Antti Karttunen_, Jan 05 2009