OFFSET
0,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..200
FORMULA
a(n) = A103209(n, n-1). [corrected by Vaclav Kotesovec, Sep 24 2017]
a(n) ~ 2^(2*n) * n^(n-3/2) / (sqrt(Pi) * exp(1/2)). - Vaclav Kotesovec, Sep 24 2017
MATHEMATICA
Table[HypergeometricPFQ[{-n, n+1}, {2}, -n+1], {n, 0, 20}] (* Vaclav Kotesovec, Sep 24 2017 *)
Flatten[{1, 1, Table[Sum[Binomial[n, k]*Binomial[n, k+1]*(n-1)^k*n^(n-k), {k, 0, n-1}]/n, {n, 2, 20}]}] (* Vaclav Kotesovec, Sep 24 2017 *)
PROG
(PARI) a(n) = {if(n==0, 1, sum(i=0, n-1, binomial(n, i)*binomial(n, i+1)*(n-1)^i*n^(n-i))/n)} \\ Andrew Howroyd, Apr 14 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jan 27 2005
EXTENSIONS
Prepended a(0)=1 from Vaclav Kotesovec, Sep 24 2017
Terms a(15) and beyond from Andrew Howroyd, Apr 14 2021
STATUS
approved