OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..413
FORMULA
a(n) ~ exp(1/2) * 2^(n+2) * n^n / Pi^(n+1). - Vaclav Kotesovec, Aug 30 2016
EXAMPLE
a(0) = 1: the empty sequence.
a(1) = 1: 1.
a(2) = 3: 11, 12, 22.
a(3) = 14: 111, 121, 122, 131, 132, 133, 221, 222, 231, 232, 233, 331, 332, 333.
a(4) = 85: 1111, 1112, 1113, 1114, 1211, ..., 4423, 4424, 4433, 4434, 4444.
MAPLE
b:= proc(n, k, t) option remember; `if`(n=0, 1,
add(b(n-1, k, k-j), j=1..t))
end:
a:= n-> b(n, n+1, n):
seq(a(n), n=0..25);
MATHEMATICA
b[n_, k_, t_] := b[n, k, t] = If[n==0, 1, Sum[b[n-1, k, k-j], {j, 1, t}]];
a[n_] := b[n, n+1, n];
Table[a[n], {n, 0, 25}](* Jean-François Alcover, May 18 2017, translated from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 29 2016
STATUS
approved