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

Author

Peter Luschny, Mar 30 2022

Keywords

• nonn

Crossrefs

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

Programs

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

Formula

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