A258916 n*a(n+1) = (2*n^2+2*n+1)*a(n)+(n+1)*a(n-1); a(0)=1, a(1)=0.

1, 0, 2, 13, 111, 1154, 14212, 202683, 3288125, 59825284, 1206806406, 26736229385, 645416587627, 16863580242438, 474172509285896, 14277112865214199, 458325203221106937, 15626871667138245128, 563971893271395540490, 21478758747365642882949

Offset

0,3

Links

Charles R Greathouse IV, Table of n, a(n) for n = 0..403

Formula

a(n) ~ (BesselI(0,1)-BesselI(1,1)) * 2^(n-1) * n!. - Vaclav Kotesovec, Jul 10 2015

Mathematica

RecurrenceTable[{a[0]==1, a[1]==0, n*a[n+1]== (2n^2 +2*n+1)*a[n] + (n+1)*a[n-1]}, a, {n, 30}]

Prog

(PARI) a=vector(20); a[1]=0; a[2]=2; for(n=3, #a, a[n]=((2*n^2 - 2*n + 1)*a[n-1] + n*a[n-2])/(n-1)); concat(1, a) \\ Charles R Greathouse IV, Jul 09 2015

Crossrefs

Sequence in context: A245806 A192204 A176932 * A052444 A378668 A277463

Adjacent sequences: A258913 A258914 A258915 * A258917 A258918 A258919

Keyword

nonn,easy

Author

G. C. Greubel, Jul 09 2015

Status

approved