OFFSET
0,6
LINKS
Robert Israel, Table of n, a(n) for n = 0..174
MAPLE
SwingNumber := proc(n) option remember; n! / iquo(n, 2)!^2 end proc:
f:= n -> add((-1)^k * IncompleteBellB(n, k, seq(SwingNumber(j), j=0..n)), k=0..n):
map(f, [$0..30]); # Robert Israel, Oct 23 2023
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, Mar 15 2022
STATUS
approved