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-6 of 6 results.

A057625 a(n) = n! * sum 1/k! where the sum is over all positive integers k that divide n.

Original entry on oeis.org

1, 3, 7, 37, 121, 1201, 5041, 62161, 423361, 5473441, 39916801, 818959681, 6227020801, 130784734081, 1536517382401, 32256486662401, 355687428096001, 10679532671808001, 121645100408832001, 3770998783116364801, 59616236292028416001, 1686001119824999577601
Offset: 1

Views

Author

Leroy Quet, Oct 09 2000

Keywords

Comments

Sets of lists of equal size, cf. A000262. - Vladeta Jovovic, Nov 02 2003
From Gus Wiseman, Jan 10 2019: (Start)
Number of matrices whose entries are 1,...,n, up to column permutations. For example, inequivalent representatives of the a(4) = 37 matrices are:
One 1 X 4 matrix:
[1234]
12 2 X 2 matrices:
[12] [12] [13] [13] [14] [14] [23] [23] [24] [24] [34] [34]
[34] [43] [24] [42] [23] [32] [14] [41] [13] [31] [12] [21]
and 24 4 X 1 matrices:
[1][1][1][1][1][1][2][2][2][2][2][2][3][3][3][3][3][3][4][4][4][4][4][4]
[2][2][3][3][4][4][1][1][3][3][4][4][1][1][2][2][4][4][1][1][2][2][3][3]
[3][4][2][4][2][3][3][4][1][4][1][3][2][4][1][4][1][2][2][3][1][3][1][2]
[4][3][4][2][3][2][4][3][4][1][3][1][4][2][4][1][2][1][3][2][3][1][2][1]
in total 1+12+24 = 37.
(End)

Examples

			a(4) = 4! (1 + 1/2! + 1/4!) = 24 (1 + 1/2 + 1/24) = 37.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := n! DivisorSum[n, 1/#! &]; Array[a, 22] (* Jean-François Alcover, Dec 23 2015 *)
  • PARI
    a(n)=n! * sumdiv(n, d, 1/d! );  /* Joerg Arndt, Oct 07 2012 */

Formula

E.g.f.: Sum_{n>0} (exp(x^n)-1). - Vladeta Jovovic, Dec 30 2001
E.g.f.: Sum_{k>0} x^k/k!/(1-x^k). - Vladeta Jovovic, Oct 14 2003
Equals the logarithmic derivative of A209903. - Paul D. Hanna, Jul 26 2012

A121860 a(n) = Sum_{d|n} n!/(d!*(n/d)!).

Original entry on oeis.org

1, 2, 2, 8, 2, 122, 2, 1682, 10082, 30242, 2, 7318082, 2, 17297282, 3632428802, 36843206402, 2, 2981705126402, 2, 1690185726028802, 3379030566912002, 28158588057602, 2, 76941821303636889602, 1077167364120207360002
Offset: 1

Views

Author

Vladeta Jovovic, Sep 09 2006

Keywords

Comments

a(n) = 2 iff n is prime.
a(468) has 1007 decimal digits. - Michael De Vlieger, Sep 12 2018
From Gus Wiseman, Jan 10 2019: (Start)
Number of matrices whose entries are 1,...,n, up to row and column permutations. For example, inequivalent representatives of the a(4) = 8 matrices are:
[1 2 3 4]
.
[1 2] [1 2] [1 3] [1 3] [1 4] [1 4]
[3 4] [4 3] [2 4] [4 2] [2 3] [3 2]
.
[1]
[2]
[3]
[4]
(End)
Conjecture: the sequence a(n) taken modulo a positive integer k >= 3 eventually becomes constant equal to 2. For example, the sequence taken modulo 11 is [1, 2, 2, 8, 2, 1, 2, 10, 6, 3, 2, 2, 2, 2, 2, 2, ...]. - Peter Bala, Aug 08 2025

Crossrefs

Programs

  • Maple
    with(numtheory): seq(n!*add(1/(d!*(n/d)!), d in divisors(n)), n = 1..25); # Peter Bala, Aug 04 2025
  • Mathematica
    f[n_] := Block[{d = Divisors@n}, Plus @@ (n!/(d! (n/d)!))]; Array[f, 25] (* Robert G. Wilson v, Sep 11 2006 *)
    Table[DivisorSum[n, n!/(#!*(n/#)!) &], {n, 25}] (* Michael De Vlieger, Sep 12 2018 *)
  • PARI
    a(n) = sumdiv(n, d, n!/(d!*(n/d)!)); \\ Michel Marcus, Sep 13 2018

Formula

E.g.f.: Sum_{k>0} (exp(x^k)-1)/k!.

Extensions

More terms from Robert G. Wilson v, Sep 11 2006

A034941 Number of labeled triangular cacti with 2n+1 nodes (n triangles).

Original entry on oeis.org

1, 1, 15, 735, 76545, 13835745, 3859590735, 1539272109375, 831766748637825, 585243816844111425, 520038240188935042575, 569585968715180280038175, 753960950911045074462890625, 1186626209895384011075327630625, 2190213762744801162239116550679375
Offset: 0

Views

Author

Christian G. Bower, Oct 15 1998

Keywords

Comments

Also the number of 3-uniform hypertrees spanning 2n + 1 labeled vertices. - Gus Wiseman, Jan 12 2019
Number of rank n+1 simple series-parallel matroids on [2n+1]. - Matt Larson, Mar 06 2023

Examples

			a(3) = 5!! * 7^2 = (1*3*5) * 49 = 735.
From _Gus Wiseman_, Jan 12 2019: (Start)
The a(2) = 15 3-uniform hypertrees:
  {{1,2,3},{1,4,5}}
  {{1,2,3},{2,4,5}}
  {{1,2,3},{3,4,5}}
  {{1,2,4},{1,3,5}}
  {{1,2,4},{2,3,5}}
  {{1,2,4},{3,4,5}}
  {{1,2,5},{1,3,4}}
  {{1,2,5},{2,3,4}}
  {{1,2,5},{3,4,5}}
  {{1,3,4},{2,3,5}}
  {{1,3,4},{2,4,5}}
  {{1,3,5},{2,3,4}}
  {{1,3,5},{2,4,5}}
  {{1,4,5},{2,3,4}}
  {{1,4,5},{2,3,5}}
The following are non-isomorphic representatives of the 2 unlabeled 3-uniform hypertrees spanning 7 vertices, and their multiplicities in the labeled case, which add up to a(3) = 735:
  105 X {{1,2,7},{3,4,7},{5,6,7}}
  630 X {{1,2,6},{3,4,7},{5,6,7}}
(End)
		

Crossrefs

Programs

  • Magma
    [(2*n+1)^(n-1)*Factorial(2*n)/(2^n*Factorial(n)): n in [0..15]]; // Vincenzo Librandi, Feb 19 2020
  • Mathematica
    Table[(2n+1)^(n-1)(2n)!/(2^n n!), {n, 0, 14}] (* Jean-François Alcover, Nov 06 2018 *)

Formula

a(n) = A034940(n)/(2n+1).
The closed form a(n) = (2n-1)!! (2n+1)^(n-1) can be obtained from the generating function in A034940. - Noam D. Elkies, Dec 16 2002

Extensions

Typo in a(10) corrected and more terms from Alois P. Heinz, Jun 23 2017

A326374 Irregular triangle read by rows where T(n,k) is the number of (d + 1)-uniform hypertrees spanning n + 1 vertices, where d = A027750(n,k).

Original entry on oeis.org

1, 3, 1, 16, 1, 125, 15, 1, 1296, 1, 16807, 735, 140, 1, 262144, 1, 4782969, 76545, 1890, 1, 100000000, 112000, 1, 2357947691, 13835745, 33264, 1, 61917364224, 1, 1792160394037, 3859590735, 270670400, 35135100, 720720, 1, 56693912375296, 1, 1946195068359375
Offset: 1

Views

Author

Gus Wiseman, Jul 03 2019

Keywords

Comments

A hypertree is a connected hypergraph of density -1, where density is the sum of sizes of the edges minus the number of edges minus the number of vertices. A hypergraph is k-uniform if its edges all have size k. The span of a hypertree is the union of its edges.

Examples

			Triangle begins:
           1
           3          1
          16          1
         125         15          1
        1296          1
       16807        735        140          1
      262144          1
     4782969      76545       1890          1
   100000000     112000          1
  2357947691   13835745      33264          1
The T(4,2) = 15 hypertrees:
  {{1,4,5},{2,3,5}}
  {{1,4,5},{2,3,4}}
  {{1,3,5},{2,4,5}}
  {{1,3,5},{2,3,4}}
  {{1,3,4},{2,4,5}}
  {{1,3,4},{2,3,5}}
  {{1,2,5},{3,4,5}}
  {{1,2,5},{2,3,4}}
  {{1,2,5},{1,3,4}}
  {{1,2,4},{3,4,5}}
  {{1,2,4},{2,3,5}}
  {{1,2,4},{1,3,5}}
  {{1,2,3},{3,4,5}}
  {{1,2,3},{2,4,5}}
  {{1,2,3},{1,4,5}}
		

Crossrefs

Programs

  • Maple
    T:= n-> seq(n!/(d!*(n/d)!)*((n+1)/d)^(n/d-1), d=numtheory[divisors](n)):
    seq(T(n), n=1..20);  # Alois P. Heinz, Aug 21 2019
  • Mathematica
    Table[n!/(d!*(n/d)!)*((n+1)/d)^(n/d-1),{n,10},{d,Divisors[n]}]

Formula

T(n, k) = n!/(d! * (n/d)!) * ((n + 1)/d)^(n/d - 1), where d = A027750(n, k).

Extensions

Edited by Peter Munn, Mar 05 2025

A320606 Regular triangle read by rows where T(n,k) is the number of k-uniform hypergraphs spanning n labeled vertices where every two vertices appear together in some edge, n >= 0, 0 <= k <= n.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 5, 1, 0, 0, 1, 388, 16, 1, 0, 0, 1, 477965, 27626, 42, 1
Offset: 1

Views

Author

Gus Wiseman, Jan 10 2019

Keywords

Examples

			Triangle begins:
      1
      0      1
      0      0      1
      0      0      1      1
      0      0      1      5      1
      0      0      1    388     16      1
      0      0      1 477965  27626     42      1
		

Crossrefs

Row sums are A321134. Column k = 3 is A302394 without the initial terms.

Programs

  • Mathematica
    Table[Length[Select[Subsets[If[k==0,{},Subsets[Range[n],{k}]]],And[Union@@#==Range[n],Length[Union@@(Subsets[#,{2}]&/@#)]==Binomial[n,2]]&]],{n,0,6},{k,0,n}]

A321134 Number of uniform hypergraphs spanning n vertices where every two vertices appear together in some edge.

Original entry on oeis.org

1, 1, 1, 2, 7, 406, 505635
Offset: 0

Views

Author

Gus Wiseman, Jan 10 2019

Keywords

Comments

A hypergraph is uniform if all edges have the same size.

Examples

			The a(4) = 7 hypergraphs:
  {{1,2,3,4}}
  {{1,2,3},{1,2,4},{1,3,4}}
  {{1,2,3},{1,2,4},{2,3,4}}
  {{1,2,3},{1,3,4},{2,3,4}}
  {{1,2,4},{1,3,4},{2,3,4}}
  {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
  {{1,2},{1,3},{1,4},{2,3},{2,4},{3,4}}
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[Subsets[Subsets[Range[n],{k}]],And[Union@@#==Range[n],Length[Union@@(Subsets[#,{2}]&/@#)]==Binomial[n,2]]&]],{k,1,n}],{n,1,6}]
Showing 1-6 of 6 results.