login
A352684
a(n) = A352682(n, n).
3
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
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
KEYWORD
nonn
AUTHOR
Peter Luschny, Mar 30 2022
STATUS
approved