A087825 - OEIS

%I #9 Dec 18 2022 02:31:48

%S 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,

%T 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,

%U 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

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

%t Mallows[n_Integer?Positive] := Mallows[n] =Mallows[Mallows[Mallows[n-2]] ]+ Mallows[n - Mallows[n-2]]

%t Mallows[1] = Mallows[2] = 1

%t a=Table[Mallows[n], {n, 1, 3000}];

%t mx=Max[a]

%t c=Table[Count[a, m-1, m], {m, 1, mx}]

%t d=Delete[c, 1]

%K nonn

%O 1,1

%A _Roger L. Bagula_, Oct 06 2003