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.

A000688 Number of Abelian groups of order n; number of factorizations of n into prime powers.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 5, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 3, 2, 1, 1, 1, 7, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 5, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 2, 1, 1, 2, 11, 1, 1, 1, 2, 1, 1, 1, 6, 1, 1, 2, 2, 1, 1, 1, 5, 5, 1, 1, 2, 1, 1, 1, 3, 1, 2, 1, 2, 1, 1, 1, 7, 1, 2, 2, 4, 1, 1, 1, 3, 1, 1, 1
Offset: 1

Views

Author

Keywords

Comments

Equivalently, number of Abelian groups with n conjugacy classes. - Michael Somos, Aug 10 2010
a(n) depends only on prime signature of n (cf. A025487). So a(24) = a(375) since 24 = 2^3*3 and 375 = 3*5^3 both have prime signature (3, 1).
Also number of rings with n elements that are the direct product of fields; these are the commutative rings with n elements having no nilpotents; likewise the commutative rings where for every element x there is a k > 0 such that x^(k+1) = x. - Franklin T. Adams-Watters, Oct 20 2006
Range is A033637.
a(n) = 1 if and only if n is from A005117 (squarefree numbers). See the Ahmed Fares comment there, and the formula for n>=2 below. - Wolfdieter Lang, Sep 09 2012
Also, from a theorem of Molnár (see [Molnár]), the number of (non-isomorphic) abelian groups of order 2*n + 1 is equal to the number of non-congruent lattice Z-tilings of R^n by crosses, where a "cross" is a unit cube in R^n for which at each facet is attached another unit cube (Z, R are the integers and reals, respectively). (Cf. [Horak].) - L. Edson Jeffery, Nov 29 2012
Zeta(k*s) is the Dirichlet generating function of the characteristic function of numbers which are k-th powers (k=1 in A000012, k=2 in A010052, k=3 in A010057, see arXiv:1106.4038 Section 3.1). The infinite product over k (here) is the number of representations n=product_i (b_i)^(e_i) where all exponents e_i are distinct and >=1. Examples: a(n=4)=2: 4^1 = 2^2. a(n=8)=3: 8^1 = 2^1*2^2 = 2^3. a(n=9)=2: 9^1 = 3^2. a(n=12)=2: 12^1 = 3*2^2. a(n=16)=5: 16^1 = 2*2^3 = 4^2 = 2^2*4^1 = 2^4. If the e_i are the set {1,2} we get A046951, the number of representations as a product of a number and a square. - R. J. Mathar, Nov 05 2016
See A060689 for the number of non-abelian groups of order n. - M. F. Hasler, Oct 24 2017
Kendall & Rankin prove that the density of {n: a(n) = m} exists for each m. - Charles R Greathouse IV, Jul 14 2024

Examples

			a(1) = 1 since the trivial group {e} is the only group of order 1, and it is Abelian; alternatively, since the only factorization of 1 into prime powers is the empty product.
a(p) = 1 for any prime p, since the only factorization into prime powers is p = p^1, and (in view of Lagrange's theorem) there is only one group of prime order p; it is isomorphic to (Z/pZ,+) and thus Abelian.
From _Wolfdieter Lang_, Jul 22 2011: (Start)
a(8) = 3 because 8 = 2^3, hence a(8) = pa(3) = A000041(3) = 3 from the partitions (3), (2, 1) and (1, 1, 1), leading to the 3 factorizations of 8: 8, 4*2 and 2*2*2.
a(36) = 4 because 36 = 2^2*3^2, hence a(36) = pa(2)*pa(2) = 4 from the partitions (2) and (1, 1), leading to the 4 factorizations of 36: 2^2*3^2, 2^2*3^1*3^1, 2^1*2^1*3^2 and 2^1*2^1*3^1*3^1.
(End)
		

References

  • Steven R. Finch, Mathematical Constants, Cambridge, 2003, pp. 274-278.
  • D. S. Mitrinovic et al., Handbook of Number Theory, Kluwer, Section XIII.12, p. 468.
  • J. S. Rose, A Course on Group Theory, Camb. Univ. Press, 1978, see p. 7.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • A. Speiser, Die Theorie der Gruppen von endlicher Ordnung, 4. Auflage, Birkhäuser, 1956.

Crossrefs

Cf. A080729 (Dgf at s=2), A369634 (Dgf at s=3).

Programs

  • Haskell
    a000688 = product . map a000041 . a124010_row
    -- Reinhard Zumkeller, Aug 28 2014
    
  • Maple
    with(combinat): readlib(ifactors): for n from 1 to 120 do ans := 1: for i from 1 to nops(ifactors(n)[2]) do ans := ans*numbpart(ifactors(n)[2][i][2]) od: printf(`%d,`,ans): od: # James Sellers, Dec 07 2000
  • Mathematica
    f[n_] := Times @@ PartitionsP /@ Last /@ FactorInteger@n; Array[f, 107] (* Robert G. Wilson v, Sep 22 2006 *)
    Table[FiniteAbelianGroupCount[n], {n, 200}] (* Requires version 7.0 or later. - Vladimir Joseph Stephan Orlovsky, Jul 01 2011 *)
  • PARI
    A000688(n)=local(f);f=factor(n);prod(i=1,matsize(f)[1],numbpart(f[i,2])) \\ Michael B. Porter, Feb 08 2010
    
  • PARI
    a(n)=my(f=factor(n)[,2]); prod(i=1,#f,numbpart(f[i])) \\ Charles R Greathouse IV, Apr 16 2015
    
  • Python
    from sympy import factorint, npartitions
    from math import prod
    def A000688(n): return prod(map(npartitions,factorint(n).values())) # Chai Wah Wu, Jan 14 2022
  • Sage
    def a(n):
        F=factor(n)
        return prod([number_of_partitions(F[i][1]) for i in range(len(F))])
    # Ralf Stephan, Jun 21 2014
    

Formula

Multiplicative with a(p^k) = number of partitions of k = A000041(k); a(mn) = a(m)a(n) if (m, n) = 1.
a(2n) = A101872(n).
a(n) = Product_{j = 1..N(n)} A000041(e(j)), n >= 2, if
n = Product_{j = 1..N(n)} prime(j)^e(j), N(n) = A001221(n). See the Richert reference, quoting A. Speiser's book on finite groups (in German, p. 51 in words). - Wolfdieter Lang, Jul 23 2011
In terms of the cycle index of the symmetric group: Product_{q=1..m} [z^{v_q}] Z(S_v) 1/(1-z) where v is the maximum exponent of any prime in the prime factorization of n, v_q are the exponents of the prime factors, and Z(S_v) is the cycle index of the symmetric group on v elements. - Marko Riedel, Oct 03 2014
Dirichlet g.f.: Sum_{n >= 1} a(n)/n^s = Product_{k >= 1} zeta(ks) [Kendall]. - Álvar Ibeas, Nov 05 2014
a(n)=2 for all n in A054753 and for all n in A085987. a(n)=3 for all n in A030078 and for all n in A065036. a(n)=4 for all n in A085986. a(n)=5 for all n in A030514 and for all n in A178739. a(n)=6 for all n in A143610. - R. J. Mathar, Nov 05 2016
A050360(n) = a(A025487(n)). a(n) = A050360(A101296(n)). - R. J. Mathar, May 26 2017
a(n) = A000001(n) - A060689(n). - M. F. Hasler, Oct 24 2017
From Amiram Eldar, Nov 01 2020: (Start)
a(n) = a(A057521(n)).
Asymptotic mean: lim_{n->oo} (1/n) * Sum_{k=1..n} a(k) = A021002. (End)
a(n) = A005361(n) except when n is a term of A046101, since A000041(x) = x for x <= 3. - Miles Englezou, Feb 17 2024
Inverse Moebius transform of A188585: a(n) = Sum_{d|n} A188585(d). - Amiram Eldar, Jun 10 2025

A058159 Triangle read by rows: T(n,k) is the number of labeled commutative monoids of order n with k idempotents.

Original entry on oeis.org

1, 2, 2, 3, 18, 6, 16, 180, 144, 36, 30, 2040, 3240, 1740, 380, 360, 43170, 81000, 70740, 31680, 6390, 840, 1400112, 2589510, 2976960, 2055480, 832230, 157962, 15360, 110488616, 117733728, 144285960, 130781280, 79626120, 30004128, 5396888, 68040, 30647444544, 9223088112, 8744866704, 8997002280, 7154708400, 4005012816, 1421659512, 243179064
Offset: 1

Views

Author

Christian G. Bower, Nov 14 2000

Keywords

Examples

			Triangle begins:
    1;
    2,     2;
    3,    18,     6;
   16,   180,   144,    36;
   30,  2040,  3240,  1740,   380;
  360, 43170, 81000, 70740, 31680, 6390;
  ...
		

Crossrefs

Row sums give A058155.
Column 1: A034382.
Main diagonal: A055512.
Cf. A058142 (isomorphism classes), A058157, A058160.

Formula

T(n, k) = A058160(n, k)*n.

Extensions

Terms a(30) and beyond from Andrew Howroyd, Feb 15 2022

A058162 Number of labeled Abelian groups with a fixed identity.

Original entry on oeis.org

1, 1, 1, 4, 6, 60, 120, 1920, 7560, 90720, 362880, 13305600, 39916800, 1037836800, 10897286400, 265686220800, 1307674368000, 66691392768000, 355687428096000, 20274183401472000, 202741834014720000
Offset: 1

Views

Author

Christian G. Bower, Nov 15 2000, Mar 12 2008

Keywords

Comments

The distinction here between labeled and unlabeled Abelian groups is analogous to the distinction between unlabeled rooted trees (A000081) and labeled rooted trees (A000169).
That is, the number of Cayley tables. - Artur Jasinski, Mar 12 2008
Number of Latin squares in dimension n with first row and first column 1,2,3 ..., n which are associative and commutative (Abelian). Each of these squares is isomorphic with the Cayley table of one of the existed Abelian group in dimension n. - Artur Jasinski, Nov 02 2005. Cf. A111341.

Examples

			The 2 unlabeled Abelian groups of order 4 are C4 and C2^2. The 4 labeled Abelian groups whose identity is "0" consist of 3 of type C4 (where the nongenerator can be "2", "3", or "4") and 1 of type C2^2.
		

Crossrefs

Formula

a(n) = A034382(n) / n. Formula for A034382 is based on the fundamental theorem of finite Abelian groups and the formula given by Hillar and Rhea (2007).

Extensions

a(16) and a(21) corrected by Max Alekseyev, Sep 12 2019

A034381 Number of labeled cyclic groups with n elements.

Original entry on oeis.org

1, 2, 3, 12, 30, 360, 840, 10080, 60480, 907200, 3991680, 119750400, 518918400, 14529715200, 163459296000, 2615348736000, 22230464256000, 1067062284288000, 6758061133824000, 304112751022080000, 4257578514309120000, 112400072777760768000, 1175091669949317120000
Offset: 1

Views

Author

Keywords

Comments

This sequence is strictly increasing, since a(n) = n!/phi(n) > n!/n = (n-1)! >= a(n-1) for n >= 2. - Jianing Song, Mar 02 2024

Crossrefs

Programs

Formula

a(n) = n!/phi(n).
a(n) = A000142(n)/A000010(n) = n*A058161(n).

Extensions

a(21) onwards from Jianing Song, Mar 02 2024

A034383 Number of labeled groups.

Original entry on oeis.org

1, 2, 3, 16, 30, 480, 840, 22080, 68040, 1088640, 3991680, 259459200, 518918400, 16605388800, 163459296000, 10353459916800, 22230464256000, 1867358997504000, 6758061133824000, 648773868847104000, 5474029518397440000, 122618261212102656000
Offset: 1

Views

Author

Keywords

Comments

From Jianing Song, Mar 02 2024: (Start)
In other words, number of ways to define a group structure on a set of n elements. Note that for a group G, a group structure on the set G is given by mapping (x,y) to sigma^(-1)(sigma(x)*sigma(y)), where sigma is a bijection on the set G; sigma and sigma' give the same structure if and only if sigma' is the composition of a group automorphism of G and sigma.
By definition, a(n) = A034381(n) if n in A003277, otherwise a(n) > A034381(n). The indices of records of a(n)/A034381(n) among the known terms are 1, 4, 8, 16, 24, 32, 48, 64, 96, 128, 192, with a(192)/A034381(192) = 122774329/1640520 ~ 74.8.
Also by definition, a(n) >= A000001(n)*n!/A059773(n). If the conjecture A059773(2^r) = A002884(r) is true, then A059773(2^r) <= 2^(r^2), while A000001(2^r) >= 2^((2/27)*r^2*(r-6)) (see the Math Stack Exchange link below), so a(2^r)/A034381(2^r) tends to infinity quickly as r tends to infinity.
The sequence is strictly increasing for the first 256 terms (a(256) > A034381(256) > A034381(255) = a(255) since 255 is in A003277). On the other hand, assuming that A059773(2^r) = A002884(r), then a(2^20)/(2^20)! >= A000001(2^20)/A002884(20) > 99798.4, while a(2^20+1)/(2^20)! = A034381(2^20+1)/(2^20)! = (2^20+1)/phi(2^20+1) since 2^20+1 = 17*61681 is in A003277, so we would have a(2^20) > a(2^20+1). It is conjectured a(2^r) > a(2^r+1) for all sufficiently large r. (End)

Crossrefs

Programs

  • GAP
    A034383 := function(n) local fn, sum, k; fn := Factorial(n); sum := 0; for k in [1 .. NrSmallGroups(n)] do sum := sum + fn / Size(AutomorphismGroup(SmallGroup(n,k))); od; return sum; end; # Stephen A. Silver, Feb 10 2013

Formula

a(n) = n * A058163(n).
a(n) = Sum n!/|Aut(G)|, where the sum is taken over the different products G of cyclic groups with |G| = n.

Extensions

More terms from Stephen A. Silver, Feb 10 2013

A370360 Number of labeled semisimple rings with n elements.

Original entry on oeis.org

1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 24409921536000, 355687428096000, 6402373705728000, 121645100408832000, 2432902008176640000, 51090942171709440000, 1124000727777607680000
Offset: 1

Views

Author

Paul Laubie, Mar 05 2024

Keywords

Comments

Using the Artin-Wedderburn theorem, a finite semisimple ring is a product of matrix algebras over finite field. In particular, if n is squarefree then any semisimple ring of cardinal n is commutative. One can be more precise, indeed all semisimple rings with n elements are commutative if and only if the only 4th power that divides n is 1.
The analogous sequences for abelian groups and cyclic groups are A034382 and A034381, respectively.
In the case of commutative semisimple rings, we get the factorial numbers.

Examples

			For n=4, we have two possible rings: F_4 and F_2 X F_2. We use the notation F_q to denote the finite field with q elements. To compute a(4) we need to know how many ring automorphisms F_4 and F_2 X F_2 admit. For F_4, we have that Aut(F_4) is generated by the Frobenius morphism, hence we have 2 automorphisms. For F_2 X F_2, the only nontrivial automorphism is exchanging the two coordinates, hence we also have 2 automorphisms. Hence:
a(4) = 24/2 + 24/2 = 24.
We can compute a(2^k) for some small values of k:
a(4) = 4! = 24,
a(8) = 8!,
a(16) = 16! + 16!/6,
a(32) = 32! + 32!/6,
a(64) = 64! + 64!/12 + 64!/12,
a(128) = 128! + 128!/36 + 128!/18 + 128!/12,
...
		

Crossrefs

Formula

If n is squarefree then we have a(n) = n!. More precisely, a(n) = n! if and only if the only 4th power that divides n is 1. In particular, n=16 is the smallest n such that a(n) is different from n!.
If n and m are relatively prime, then a(n*m) = (n*m)!*a(n)*a(m)/(n!*m!).
Showing 1-6 of 6 results.