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 A101403 #16 Sep 10 2014 10:44:18
%S A101403 1,3,2,4,3,2,3,3,2,4,3,2,2,3,2,4,3,2,3,3,2,4,3,3,3,2,4,3,2,3,3,2,4,3,
%T A101403 2,2,3,2,4,3,2,3,3,2,4,3,2,3,2,4,3,2,3,3,2,4,3,2,2,3,2,4,3,2,3,3,2,4,
%U A101403 3,3,3,2,4,3,2,3,3,2,4,3,2,2,3,2,4,3,2,3,3,2,4,4,3,2,4,3,2,3,3
%N A101403 Number of times that n occurs in A101402.
%C A101403 First differences of A246439; see A246431 for smallest m such that a(m)=n; a(A129117(n)) = 5. - _Reinhard Zumkeller_, Aug 28 2014
%H A101403 Reinhard Zumkeller, <a href="/A101403/b101403.txt">Table of n, a(n) for n = 0..10000</a>
%F A101403 a(n) > 1 for all n > 0, see comment in A101402. - _Charles R Greathouse IV_, Sep 10 2014
%t A101403 A101402[0] = 0; A101402[1] = 1;
%t A101403 A101402[n_] := A101402[n] = A101402[2^(Floor[Log[2, n - 1]])] + A101402[n - 1 - 2^(Floor[Log[2, n - 1]])]; TheList = Table[A101402[i], {i, 0, 279}];
%t A101403 A101403 = Table[Count[TheList, i], {i, 0, Last[TheList]}]
%t A101403 (* Keith Schneider, May 25 2007 *)
%o A101403 (Haskell)
%o A101403 import Data.List (group)
%o A101403 a101403 n = a101403_list !! n
%o A101403 a101403_list = map length $ group a101402_list
%o A101403 -- _Reinhard Zumkeller_, Aug 27 2014
%Y A101403 Cf. A101402, A246431, A246439.
%K A101403 easy,nonn
%O A101403 0,2
%A A101403 _Odimar Fabeny_, Jan 16 2005
%E A101403 More terms from Keith Schneider, May 25 2007