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 A089028 #11 Mar 30 2012 17:34:13
%S A089028 1,3,1,5,6,1,1,9,10,11,1,13,1,1,1,17,18,19,20,1,22,23,1,25,1,1,28,1,1,
%T A089028 1,1,33,34,35,36,37,1,39,40,41,1,43,44,1,46,1,1,49,50,1,52,1,1,55,1,1,
%U A089028 1,59,1,1,1,1,1,65,66,67,68,69,70,1,72,73,74,75,1,77,78,79,1,81,82,1,84,1
%N A089028 a(n) = n+1 where the Hofstadter-Conway Delta A093878(n) >0, otherwise a(n) = 1.
%t A089028 Conway[n_Integer?Positive] := Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]] Conway[1] = Conway[2] = 1 digits=200 a=Table[If[Conway[n]-Conway[n-1]>0, n, 1], {n, 2, digits}]
%Y A089028 Cf. A004001.
%K A089028 nonn
%O A089028 1,2
%A A089028 _Roger L. Bagula_, Nov 12 2003