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 A087815 #5 Mar 30 2012 17:34:13
%S A087815 1,2,4,5,8,9,10,12,16,17,18,19,21,22,24,27,32,33,34,35,36,38,39,40,42,
%T A087815 43,45,48,49,51,54,58,64,65,66,67,68,69,71,72,73,74,76,77,78,80,81,83,
%U A087815 86,87,88,90,91,93,96,97,99,102,106,107,109,112,116,121,128
%N A087815 Terms in A087816 that occur in a run of length more than 1.
%t A087815 hg[n_Integer?Positive] := hg[n] =hg[hg[n-1]] + hg[n -1- hg[n-1]] hg[1] = hg[2] = 1 digits=2^8 a=Table[hg[n], {n, 1, digits}] b=Table[If[a[[n]]-a[[n-1]]==0, a[[n]], 0], {n, 2, digits}]; c=Delete[Union[b], 1]
%Y A087815 Cf. A055748, A087816.
%K A087815 nonn
%O A087815 1,2
%A A087815 _Roger L. Bagula_, Oct 05 2003