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 A214489 #8 Sep 08 2013 19:54:51 %S A214489 0,4,8,9,10,11,16,17,18,19,20,21,22,23,24,25,26,32,33,34,35,36,37,38, %T A214489 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,64,65,66,67, %U A214489 68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86 %N A214489 Numbers m such that A070939(m) = A070939(m + A070939(m)), A070939 = length of binary representation. %C A214489 A070939(a(n))=A103586(a(n)) and also A105025(a(n))=A105029(a(n)). %H A214489 Reinhard Zumkeller, <a href="/A214489/b214489.txt">Table of n, a(n) for n = 1..10000</a> %H A214489 David Applegate, Benoit Cloitre, Philippe Deléham and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [<a href="http://neilsloane.com/doc/slopey.pdf">pdf</a>, <a href="http://neilsloane.com/doc/slopey.ps">ps</a>]. %H A214489 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a> %o A214489 (Haskell) %o A214489 a214489 n = a214489_list !! (n-1) %o A214489 a214489_list = [x | x <- [0..], a070939 x == a103586 x] %o A214489 -- . %K A214489 nonn %O A214489 1,2 %A A214489 _Reinhard Zumkeller_, Jul 21 2012