cp's OEIS Frontend

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.

Showing 1-3 of 3 results.

A135084 a(n) = A000110(2^n-1).

Original entry on oeis.org

1, 5, 877, 1382958545, 10293358946226376485095653, 8250771700405624889912456724304738028450190134337110943817172961
Offset: 1

Views

Author

Thomas Wieder, Nov 18 2007

Keywords

Comments

Number of set partitions of all nonempty subsets of a set, Bell(2^n-1).

Examples

			Let S={1,2,3,...,n} be a set of n elements and let
SU be the set of all nonempty subsets of S. The number of elements of SU is |SU| = 2^n-1. Now form all possible set partitions from SU where the empty set is excluded. This gives a set W and its number of elements is |W| = Sum_{k=1..2^n-1} Stirling2(2^n-1,k).
For S={1,2} we have SU = { {1}, {2}, {1,2} } and W =
{
{{1}, {2}, {1, 2}},
{{1, 2}, {{1}, {2}}},
{{2}, {{1}, {1, 2}}},
{{1}, {{2}, {1, 2}}},
{{{1}, {2}, {1, 2}}}
}
and |W| = 5.
		

Crossrefs

Programs

  • Maple
    ZahlDerMengenAusMengeDerZerlegungenEinerMenge:=proc() local n,nend,arg,k,w; nend:=5; for n from 1 to nend do arg:=2^n-1; w[n]:=sum((stirling2(arg,k)), k=1..arg); od; print(w[1],w[2],w[3],w[4],w[5],w[6],w[7],w[8],w[9],w[10]); end proc;
  • Mathematica
    BellB[2^Range[6]-1] (* Harvey P. Dale, Jul 22 2012 *)
  • Python
    from sympy import bell
    def A135084(n): return bell(2**n-1) # Chai Wah Wu, Jun 22 2022

Formula

a(n) = Sum_{k=1..2^n-1} Stirling2(2^n-1,k) = Bell(2^n-1), where Stirling2(n, k) is the Stirling number of the second kind and Bell(n) is the Bell number.

A137736 Number of set partitions of [n*(n-1)/2].

Original entry on oeis.org

1, 1, 1, 5, 203, 115975, 1382958545, 474869816156751, 6160539404599934652455, 3819714729894818339975525681317, 139258505266263669602347053993654079693415, 359334085968622831041960188598043661065388726959079837
Offset: 0

Views

Author

Thomas Wieder, Feb 09 2008

Keywords

Comments

Among n persons we have (n^2-n)/2 undirected relations. We can set partition these relations into (up to) a(n) = Bell((n^2-n)/2) sets.
The number of graphs on n labeled nodes is A006125(n) = Sum_{k=0..(n^2-n)/2} binomial((n^2-n)/2,k).
See also A066655 which equals A066655(n) = Sum_{k=0..(n^2-n)/2} P((n^2-n)/2,k) where P(n) is the number of integer partitions of n.
See also A135084 = A000110(2^n-1) and A135085 = A000110(2^n).

Examples

			a(4) = Bell(6) = 203.
		

Crossrefs

Programs

  • Maple
    seq(combinat[bell](n*(n-1)/2), n=0..12);
  • Mathematica
    a[n_]=BellB[n(n-1)/2];Array[a,12,0] (* James C. McMahon, Jun 02 2025 *)

Formula

a(n) = Bell(n*(n-1)/2) = A000110(n*(n-1)/2).
a(n) = Sum_{k=0..(n^2-n)/2} Stirling2((n^2-n)/2,k).

Extensions

a(0)=1 prepended by Alois P. Heinz, Jul 24 2024

A308866 a(n) = Sum_{k>=0} k^(2^n)/2^(k+1).

Original entry on oeis.org

1, 3, 75, 545835, 5315654681981355, 23545154085734896649184490637144855476395, 1408419189834457368564204829523128565178390518208834734403870775971211916384631776000167564122146475
Offset: 0

Views

Author

Ilya Gutkovskiy, Jun 29 2019

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Sum[k^(2^n)/2^(k + 1), {k, 0, Infinity}], {n, 0, 6}]
    Table[Sum[k! StirlingS2[2^n, k], {k, 0, 2^n}], {n, 0, 6}]

Formula

a(n) = Sum_{k=0..2^n} k!*Stirling2(2^n,k).
a(n) = A000670(A000079(n)).
Showing 1-3 of 3 results.