reviewed
approved
Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
reviewed
approved
proposed
reviewed
editing
proposed
Mathematica: Table[Total[2^(Append[#,n]-1)]&/@Subsets[Range[n-1]],{n,5}]
Row lengths are A000079 (shifted right). Also Column k = 1.
Row sums are A010036.
Using reverse-lexicographic order gives A059893.
Using lexicographic order gives A059894.
Taking binary indices to prime indices gives A339195 (or A019565).
The ordering of sets is A344084.
A version using Heinz numbers is A344085.
Row lengths are A000079 (shifted right). Also Column k = 1.
Row sums are A010036.
Using reverse-lexicographic order gives A059893.
Using lexicographic order gives A059894.
Taking binary indices to prime indices gives A339195 (or A019565).
The ordering of sets is A344084.
A version using Heinz numbers is A344085.
Cf. A010036, A026793, A048793, A111059, A147655, A246688, A246867, A261144, A272020, A294648, A339360.
The following is a Mathematica program for this triangle.
Table[Total[2^(Append[#,n]-1)]&/@Subsets[Range[n-1]],{n,5}]
The following is a Mathematica program for this triangle.
Table[Total[2^(Append[#,n]-1)]&/@Subsets[Range[n-1]],{n,5}]
Table[Total[2^(Append[#, n]-1)]&/@Subsets[Range[n-1]], {n, 5}] (* Gus Wiseman, Aug 24 2021 *)
An unordered A version using Heinz numbers is A344085.