%I #13 Nov 14 2014 13:06:52
%S 1,2,1,2,3,2,2,94,1,1,1,2,6,2,17,2,2,1187,6,2,1,62,2,56883,14,3,14471,
%T 2,14,3018,34,6,3,29,67,19,1,38,528846,9758,14,18278015,163506530,
%U 767014,7,2,2611563,2081053770,3,2,2,53654,94,17175330570,2,1612685866
%N Put a [+] b = A(A(a) + A(b)), where A=A007913. The sequence lists consecutive row "sums" of triangle A248473, using [+].
%t a7913[n_]:=a7913[n]=Times@@(#[[1]]^Mod[#[[2]],2])&[Transpose[FactorInteger[n]]];
%t ab[x_,y_]:=ab[x,y]=a7913[a7913[x]+a7913[y]];
%t Map[Fold[ab,First[#],Rest[#]]&,Table[a7913[Binomial[a7913[m],a7913[k]]],{m,0,50},{k,0,m}]] (* _Peter J. C. Moses_, Oct 27 2014 *)
%Y Cf. A007913, A248470, A248473.
%K nonn
%O 0,2
%A _Vladimir Shevelev_ and _Peter J. C. Moses_, Oct 27 2014