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
Keywords
Programs
-
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]