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

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, 43, 45, 48, 49, 51, 54, 58, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 76, 77, 78, 80, 81, 83, 86, 87, 88, 90, 91, 93, 96, 97, 99, 102, 106, 107, 109, 112, 116, 121, 128

Offset

1,2

Links

Table of n, a(n) for n=1..65.

Mathematica

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]

Crossrefs

Cf. A055748, A087816.

Sequence in context: A131615 A344845 A166110 * A248893 A022549 A045704

Adjacent sequences: A087812 A087813 A087814 * A087816 A087817 A087818

Keyword

nonn

Author

Roger L. Bagula, Oct 05 2003

Status

approved