A087825 a(n) = number of times n occurs in A087823.

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

Links

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

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

Adjacent sequences: A087822 A087823 A087824 * A087826 A087827 A087828

Keyword

nonn

Author

Roger L. Bagula, Oct 06 2003

Status

approved