%I #6 Sep 03 2021 12:28:06
%S 1,1,2,7,29,141,832,5729,45217,402359,3985942,43500339,518515997,
%T 6702036193,93361811396,1394334141349,22223762217953,376516856157771,
%U 6756666799667818,128025250352208551,2554170591729180733,53517087513085077221,1174963644698963576488
%N Antidiagonal sums of A047920.
%H Alois P. Heinz, <a href="/A347431/b347431.txt">Table of n, a(n) for n = 0..450</a>
%F a(n) = Sum_{k=0..floor(n/2)} A047920(n-k,k).
%F a(n) mod 2 = A152822(n).
%p b:= proc(n, k) option remember;
%p `if`(k=0, n!, b(n, k-1)-b(n-1, k-1))
%p end:
%p a:= n-> add(b(n-k, k), k=0..n/2):
%p seq(a(n), n=0..23);
%Y Cf. A047920, A152822.
%K nonn
%O 0,3
%A _Alois P. Heinz_, Sep 01 2021
|