This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A249388 #13 Nov 14 2014 13:06:52 %S A249388 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 A249388 2,14,3018,34,6,3,29,67,19,1,38,528846,9758,14,18278015,163506530, %U A249388 767014,7,2,2611563,2081053770,3,2,2,53654,94,17175330570,2,1612685866 %N A249388 Put a [+] b = A(A(a) + A(b)), where A=A007913. The sequence lists consecutive row "sums" of triangle A248473, using [+]. %t A249388 a7913[n_]:=a7913[n]=Times@@(#[[1]]^Mod[#[[2]],2])&[Transpose[FactorInteger[n]]]; %t A249388 ab[x_,y_]:=ab[x,y]=a7913[a7913[x]+a7913[y]]; %t A249388 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 A249388 Cf. A007913, A248470, A248473. %K A249388 nonn %O A249388 0,2 %A A249388 _Vladimir Shevelev_ and _Peter J. C. Moses_, Oct 27 2014