|
%I #9 Nov 14 2014 13:12:46
%S 1,2,2,2,2,10,8,2,2,58,104,186,292,442,410,2,2,3434,6856,13674,27192,
%T 53912,105770,205628,389108,732762,1286970,2181624,3237606,5206764,
%U 4527418,2204,2,40384330,80768648,161537226,323074168,646146872,1292283522,2584509436
%N Row "sums" of triangle A245618, using the operation <+> defined in A245618.
%H Peter J. C. Moses, <a href="/A249768/b249768.txt">Table of n, a(n) for n = 0..499</a>
%e For n=6 we have the following row of triangle A245618: 1 2 3 8 3 2 1.
%e We have 1<+>2=1, 1<+>3=4, 4<+>8=12, 12<+>3=9, 9<+>2=7, 7<+>1=8. So, a(6)=8.
%t parityAdd[a_,b_]:=Abs[a+b (-1)^(a+b)];
%t t[n_,0]:=1;
%t t[n_,n_]:=1;
%t t[n_,k_]:=t[n,k]=parityAdd[t[n-1,k-1],t[n-1,k]];
%t Map[Fold[parityAdd,First[#],Rest[#]]&,Table[t[n,k],{n,0,40},{k,0,n}]] (* _Peter J. C. Moses_, Nov 05 2014 *)
%Y Cf. A245618, A245619.
%K nonn
%O 0,2
%A _Vladimir Shevelev_, Nov 05 2014
%E More terms from _Peter J. C. Moses_, Nov 05 2014
|
