A087684 Consecutive repeating elements in sequence A006158.

1, 4, 6, 8, 10, 13, 16, 18, 21, 25, 29, 32, 34, 37, 41, 46, 48, 51, 54, 56, 57, 58, 59, 60, 61, 64, 66, 69, 73, 78, 80, 84, 87, 91, 92, 97, 100, 101, 104, 105, 108, 109, 112, 115, 117, 118, 119, 120, 121, 122, 123, 124, 125, 128, 130, 133, 137, 142, 144, 148, 151, 156

Offset

1,2

Links

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

Formula

Mallows3[n] =Mallows3[Mallows3[n-3]] + Mallows3[n - Mallows3[n-3]]

Mathematica

Mallows3[n_Integer?Positive] := Mallows3[n] =Mallows3[Mallows3[n-3]] + Mallows3[n - Mallows3[n-3]] Mallows3[0]=Mallows3[1] = Mallows3[2] = Mallows3[3] = 1 Digits=1000 a=Table[Mallows3[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. A006158.

Sequence in context: A189473 A189383 A287106 * A182091 A084808 A310660

Adjacent sequences: A087681 A087682 A087683 * A087685 A087686 A087687

Keyword

nonn

Author

Roger L. Bagula, Sep 27 2003

Status

approved