OFFSET
1,2
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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 27 2003
STATUS
approved