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 A067174 #5 Nov 21 2013 12:47:35
%S A067174 1,6,2160,9144576000,47354185460054753280000000,
%T A067174 18458571748581562066056556704775089466054740541440000000000000,
%U A067174 47233748702462500435567511289038040021397635763497380756284093804903384444460824501772093090703929198069912961024000000000000000000000000000
%N A067174 Product of the sum of all the subsets of the numbers from 1 to n.
%e A067174 a(3) = 1 * 2 * 3 * (1+2) * (1+3) * (2+3) * (1+2+3) = 1*2*3*3*4*5*6 = 2160
%p A067174 with(combinat,subsets): A067174 := proc(n) local S,ans,i: S := subsets([seq(i,i=1..n)]): ans := 1: S[nextvalue](): while not S[finished] do ans := ans*add(i,i=S[nextvalue]()) od: RETURN(ans): end:
%t A067174 Table[Times@@(Total[#]&/@Rest[Subsets[Range[n]]]),{n,8}] (* _Harvey P. Dale_, Feb 17 2011 *)
%K A067174 nonn
%O A067174 1,2
%A A067174 Jonathan Ayres (jonathan.ayres(AT)ntlworld.com), Jan 06 2002
%E A067174 More terms from Francisco Salinas (franciscodesalinas(AT)hotmail.com), Jan 06 2002