|
%I #7 Oct 23 2023 18:53:54
%S 1,-1,0,0,0,18,-18,70,-700,-3850,574,-56826,1111572,3361512,33911724,
%T 58266780,-2866139848,-16171966382,-313720155122,-333432770154,
%U 6143791050452,221783648934584,3761406823258348,19173257457737964,157733986443551784,-3667226903663595468
%N Alternating row sums of A352363.
%H Robert Israel, <a href="/A352365/b352365.txt">Table of n, a(n) for n = 0..174</a>
%p SwingNumber := proc(n) option remember; n! / iquo(n, 2)!^2 end proc:
%p f:= n -> add((-1)^k * IncompleteBellB(n,k,seq(SwingNumber(j),j=0..n)),k=0..n):
%p map(f, [$0..30]); # _Robert Israel_, Oct 23 2023
%Y Cf. A352363.
%K sign
%O 0,6
%A _Peter Luschny_, Mar 15 2022
|
