%I #8 Mar 31 2022 10:16:27
%S 1,4,5,14,42,145,566,2446,11547,58980,323458,1892559,11751904,
%T 77101510,532426225,3857129474,29229557534,231113610537,1902340920682,
%U 16267763481746,144260854186939,1324431903156744,12569419869410886,123141802554934015,1243798055506236156
%N a(n) = A352682(4, n).
%F a(n) = 3*Gould(n - 1) + Bell(n) for n >= 1.
%F a(n) = Sum_{k=1..n} binomial(n-1, k-1)*a(n-k) for n >= 2.
%o (Julia)
%o function A352683List(len)
%o a = 4; P = BigInt[1]; T = BigInt[1]
%o for n in 1:len-1
%o T = vcat(T, a)
%o P = cumsum(vcat(a, P))
%o a = P[end]
%o end
%o T end
%o A352683List(25) |> println
%Y Cf. A352682, A000110 (Bell), A040027 (Gould).
%K nonn
%O 0,2
%A _Peter Luschny_, Mar 30 2022
|