OFFSET
1,1
MATHEMATICA
Mallows[n_Integer?Positive] := Mallows[n] =Mallows[Mallows[Mallows[n-2]] ]+ Mallows[n - Mallows[n-2]]
Mallows[1] = Mallows[2] = 1
a=Table[Mallows[n], {n, 1, 3000}];
mx=Max[a]
c=Table[Count[a, m-1, m], {m, 1, mx}]
d=Delete[c, 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2003
STATUS
approved