A352684 a(n) = A352682(n, n).

1, 1, 3, 11, 42, 176, 808, 4015, 21423, 122035, 738424, 4725200, 31854056, 225472729, 1670849235, 12929089547, 104227219082, 873524820380, 7596906788456, 68442869865191, 637789899261963, 6138617062823371, 60945644655192264, 623410514987315252, 6562725963582441936

Offset

0,3

Links

Table of n, a(n) for n=0..24.

Formula

a(n) = (n-1)*Gould(n-1) + Bell(n) for n >= 1.

Prog

(Julia)
function A352684(n)
    a = BigInt(n == 0 ? 1 : n)
    P = BigInt[1]; T = BigInt[1]
    for k in 1:n-1
        T = push!(T, a)
        P = cumsum(pushfirst!(P, a))
        a = P[end]
    end
a end
[A352684(n) for n in 0:24] |> println

Crossrefs

Cf. A040027 (Gould), A000110 (Bell), A352682.

Sequence in context: A200212 A149070 A066655 * A302421 A118166 A277888

Adjacent sequences: A352681 A352682 A352683 * A352685 A352686 A352687

Keyword

nonn

Author

Peter Luschny, Mar 30 2022

Status

approved