OFFSET
0,2
COMMENTS
Operation <+> is defined in A245618 as: k<+>m = |k+(-1)^(k+m)*m|.
a(n)=2 for n=1,2,3,4,8,16,32,64,128,256,...
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..1000
EXAMPLE
For n=4, we have row 1,4,6,4,1.
By definition of <+>, we find 1<+>4=3, 3<+>6=3, 3<+>4=1, 1<+>1=2. So a(4)=2.
MATHEMATICA
a249779[n_Integer] := Module[{m0082, pls, lst},
m0082[j_] := Table[Binomial[j, k], {k, 0, j}];
pls[k_, m_] := Abs[k + (-1)^(k + m)*m];
lst = m0082[n];
For[i = 0, i < n, i++, lst[[2]] = pls[lst[[1]], lst[[2]]];
lst = Drop[lst, 1]];
lst[[1]]
]; a249779 /@ Range[35] (* Michael De Vlieger, Nov 23 2014 *)
parityAdd[a_, b_]:=Abs[a+b (-1)^(a+b)];
Map[Fold[parityAdd, First[#], Rest[#]]&[Binomial[#, Range[0, #]]]&, Range[0, 35]] (* Peter J. C. Moses, Dec 01 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 05 2014
EXTENSIONS
More terms from Peter J. C. Moses, Nov 05 2014
STATUS
approved