login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The frequencies of the frequencies is a chaotic decreasing step down: {21,15,17,13,16,15,15,12,12,9,13,9,10,8,9,7,9,6,8,6,7,7,5,5,5,3,2,2,2,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 digits=3000 a=Table[Mallows[n], {n, 1, digits}]; mx=Max[a] c=Table[Count[a, m-1, m], {m, 1, mx}] d=Delete[c, 1]

CROSSREFS

Cf. A005229, A005374.

Sequence in context: A121842 A317963 A219609 * A263100 A261388 A253281

Adjacent sequences:  A087822 A087823 A087824 * A087826 A087827 A087828

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Oct 06 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 5 17:04 EDT 2020. Contains 335473 sequences. (Running on oeis4.)