login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A226013 Number of unimodal functions f:[n]->[2n] with f(1)<>1 and f(i)<>f(i+1). 1
1, 1, 9, 70, 581, 4956, 43065, 379093, 3369301, 30168268, 271716644, 2459014504, 22342432139, 203682343840, 1862165051700, 17066961406095, 156758478514005, 1442549386731900, 13297258924349292, 122757267172891048, 1134800963513922996, 10503230892143398192 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..500

FORMULA

a(n) ~ 2^(8*n-3/2) / (7*sqrt(Pi*n)*3^(3*n-3/2)). - Vaclav Kotesovec, Jul 16 2014

Recurrence (of order 2): 6*n*(3*n - 4)*(3*n - 2)*(77*n^2 - 244*n + 191)*a(n) = (37345*n^5 - 212742*n^4 + 463115*n^3 - 476646*n^2 + 228792*n - 40320)*a(n-1) + 8*(2*n - 3)*(4*n - 7)*(4*n - 5)*(77*n^2 - 90*n + 24)*a(n-2). - Vaclav Kotesovec, Jul 16 2014

EXAMPLE

a(0) = 1: [].

a(1) = 1: [2].

a(2) = 9: [2,1], [2,3], [2,4], [3,1], [3,2], [3,4], [4,1], [4,2], [4,3].

a(3) = 70: [2,3,1], [2,3,2], [2,3,4], ..., [6,5,2], [6,5,3], [6,5,4].

a(4) = 581: [2,3,2,1], [2,3,4,1], [2,3,4,2], ..., [8,7,6,3], [8,7,6,4], [8,7,6,5].

MAPLE

a:= proc(n) option remember; `if`(n<3, (2*n-1)^2,

     ((49421666742*n^4 -205832874348*n^3 +295740702162*n^2

       -167673767628*n +29628103680) *a(n-1)

      +(27981954763*n^4 -127816385262*n^3 +231525900473*n^2

       -221063690262*n +102518080560) *a(n-2)

      +29529976*(2*n-5)*(4*n-9)*(n-3)*(4*n-11) *a(n-3))

      / (288*n*(2131486*n-3539195)*(3*n-4)*(3*n-2)))

    end:

seq(a(n), n=0..30);

CROSSREFS

Cf. A014301 (functions f:[n]->[n] with f(1)<>1 and f(i)<>f(i+1)).

Sequence in context: A045739 A098205 A000899 * A156705 A231419 A227848

Adjacent sequences:  A226010 A226011 A226012 * A226014 A226015 A226016

KEYWORD

nonn

AUTHOR

Alois P. Heinz, May 22 2013

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 June 16 05:18 EDT 2019. Contains 324145 sequences. (Running on oeis4.)