login
A087825
a(n) = number of times n occurs in A087823.
0
2, 1, 3, 2, 3, 3, 2, 3, 4, 3, 4, 5, 4, 5, 2, 5, 5, 6, 3, 2, 5, 6, 7, 4, 3, 6, 7, 8, 5, 4, 2, 6, 8, 9, 6, 5, 3, 7, 9, 10, 7, 6, 4, 8, 2, 9, 11, 8, 7, 5, 9, 2, 1, 11, 12, 9, 8, 6, 10, 3, 1, 13, 13, 10, 9, 2, 6, 11, 4, 1, 15, 14, 11, 10, 3, 7, 12, 5, 1, 17, 15, 12, 11, 4, 8, 2, 12, 6, 1, 19, 16, 13, 12, 5
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
Sequence in context: A121842 A317963 A219609 * A263100 A261388 A369793
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2003
STATUS
approved