|
| |
|
|
A067174
|
|
Product of the sum of all the subsets of the numbers from 1 to n.
|
|
1
| |
|
|
1, 6, 2160, 9144576000, 47354185460054753280000000, 18458571748581562066056556704775089466054740541440000000000000, 47233748702462500435567511289038040021397635763497380756284093804903384444460824501772093090703929198069912961024000000000000000000000000000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| a(3) = 1 * 2 * 3 * (1+2) * (1+3) * (2+3) * (1+2+3) = 1*2*3*3*4*5*6 = 2160
|
|
|
MAPLE
| 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:
|
|
|
MATHEMATICA
| Table[Times@@(Total[#]&/@Rest[Subsets[Range[n]]]), {n, 8}] (* From Harvey P. Dale, Feb 17 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A182789 A056048 A051113 * A153300 A059203 A198403
Adjacent sequences: A067171 A067172 A067173 * A067175 A067176 A067177
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jonathan Ayres (jonathan.ayres(AT)ntlworld.com), Jan 06 2002
|
|
|
EXTENSIONS
| More terms from Francisco Salinas (franciscodesalinas(AT)hotmail.com), Jan 06 2002
|
| |
|
|
