A087815 - OEIS

%I #5 Mar 30 2012 17:34:13

%S 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 43,45,48,49,51,54,58,64,65,66,67,68,69,71,72,73,74,76,77,78,80,81,83,

%U 86,87,88,90,91,93,96,97,99,102,106,107,109,112,116,121,128

%N Terms in A087816 that occur in a run of length more than 1.

%t 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 Cf. A055748, A087816.

%K nonn

%O 1,2

%A _Roger L. Bagula_, Oct 05 2003