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 A139478 #2 Mar 31 2012 10:22:08
%S A139478 1,110,100011,11001100,10010100101,1101100010010,1001110111000111,
%T A139478 111001011110011000,101001110111111001001,11110100000011100011110,
%U A139478 10110001110011101011101011,10000001100010101101001100100
%N A139478 a(n) = A001109(n) in binary.
%t A139478 a = {}; Do[k = IntegerDigits[Expand[((2*Sqrt[2] + 3)^(n) - (3 - 2*Sqrt[2])^(n))/(4*Sqrt[2])], 2]; AppendTo[a, FromDigits[k]], {n, 1, 50}]; a (*Artur Jasinski*)
%Y A139478 Cf. A001109, A139473, A139474, A139475, A139476, A139478.
%K A139478 base,nonn
%O A139478 1,2
%A A139478 _Artur Jasinski_, Apr 22 2008