OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..200
FORMULA
a(n) = A257740(2n,n).
EXAMPLE
a(0) = 1: {}.
a(1) = 2: {aa}, {a,a}.
a(2) = 49: {aaab}, {aaba}, {aabb}, {abaa}, {abab}, {abba}, {abbb}, {baaa}, {baab}, {baba}, {babb}, {bbaa}, {bbab}, {bbba}, {a,aab}, {a,aba}, {a,abb}, {a,baa}, {a,bab}, {a,bba}, {a,bbb}, {aa,ab}, {aa,ba}, {aa,bb}, {aaa,b}, {aab,b}, {ab,ab}, {ab,ba}, {ab,bb}, {aba,b}, {abb,b}, {b,baa}, {b,bab}, {b,bba}, {ba,ba}, {ba,bb}, {a,a,ab}, {a,a,ba}, {a,a,bb}, {a,aa,b}, {a,ab,b}, {a,b,ba}, {a,b,bb}, {aa,b,b}, {ab,b,b}, {b,b,ba}, {a,a,a,b}, {a,a,b,b}, {a,b,b,b}.
MATHEMATICA
A[n_, k_] := A[n, k] = If[n == 0, 1, Sum[DivisorSum[j, #*k^# &]*
A[n - j, k], {j, 1, n}]/n];
T[n_, k_] := Sum[A[n, k - i]*(-1)^i*Binomial[k, i], {i, 0, k}];
a[n_] := T[2n, n]; Table[a[n], {n, 0, 15}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, May 06 2015
EXTENSIONS
New name from Alois P. Heinz, Sep 21 2018
STATUS
approved