| DATA
|
1, 2, 6, 22, 88, 364, 1522, 6374, 26640, 110980, 460716, 1906172, 7862416, 32341144, 132707626, 543376774, 2220650656, 9060011284, 36908739316, 150159618964, 610186287376, 2476912674664, 10044874544116, 40700948789212, 164788263075808, 666716080038824
|
| MATHEMATICA
|
RecurrenceTable[{n (n + 1) a[n] - 4 n (3 n - 2) a[n - 1] + 4 (2 n - 3) (6 n - 5) a[n - 2] - 16 (2 n - 5) (2 n - 3) a[n - 3] == 0, a[1] == 1, a[2] == 2, a[3] == 6}, a, {n, 1, 30}] (* Bruno Berselli, Sep 14 2018 *)
|