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.

A350340 a(n) is the smallest k such that k^2 is an abelian order with precisely 2^n groups.

Original entry on oeis.org

1, 2, 35, 595, 13685, 506345, 26836285, 1702480351, 80016576497, 5681176931287, 414725915983951, 40228413850443247, 4304440281997427429, 546663915813673283483, 75986284298100586404137, 10144780646398552482233711, 1511572316313384319852822939, 252432576824335181415421430813, 49729217634394030738838021870161
Offset: 0

Views

Author

Jianing Song, Dec 25 2021

Keywords

Comments

If m is an abelian order, then m = (p_1)^2 * (p_2)^2 * ... * (p_r)^2 * q_1 * q_2 * ... * q_s, where p_1, p_2, ... p_r, q_1, q_2, ..., q_s are distinct primes such that (p_i)^2 !== 1 (mod p_j) for i != j, (p_i)^2 !== 1 (mod q_j), q_i !== 1 (mod p_j), q_i !== 1 (mod q_j) for i != j. In this case there are 2^r groups of order m.
Note that the smallest abelian order with precisely 2^n groups must be the square of a squarefree number.
a(n) is the smallest k with n distinct prime factors such that k^2 is an abelian order.
a(n) is the smallest number of the form p_1*p_2*...*p_n where the p_i are distinct primes and no (p_j)^2-1 is divisible by any p_i.
a(n) exists for all n.
Except for a(1) = 2, no term can be divisible by 2 or 3. Conjecture: lpf(a(n+1)) >= lpf(a(n)) for all n, where lpf = least prime factor. - David A. Corneth and Jianing Song, Jan 03 2022

Examples

			a(2) = 35 = 5*7 since the smallest k with 2 distinct prime factors such that k^2 is an abelian order is 35.
a(3) = 595 = 5*7*17 since the smallest k with 3 distinct prime factors such that k^2 is an abelian order is 595.
		

Crossrefs

Cf. A051532 (abelian orders), A264907, A350341.

Programs

  • PARI
    isA051532(n) = my(f=factor(n), v=vector(#f[, 1])); for(i=1, #v, if(f[i, 2]>2, return(0), v[i]=f[i, 1]^f[i, 2])); for(i=1, #v, for(j=i+1, #v, if(v[i]%f[j, 1]==1 || v[j]%f[i, 1]==1, return(0)))); 1 \\ Charles R Greathouse IV's program for A051532
    a(n) = for(k=1, oo, if(issquarefree(k) && omega(k)==n && isA051532(k^2), return(k)))

Formula

A350341(n) = a(n)^2.

Extensions

a(7)-a(18) from David A. Corneth, Jan 02 2022

A350343 Square numbers k that are abelian orders.

Original entry on oeis.org

1, 4, 9, 25, 49, 121, 169, 289, 361, 529, 841, 961, 1225, 1369, 1681, 1849, 2209, 2809, 3481, 3721, 4225, 4489, 5041, 5329, 5929, 6241, 6889, 7225, 7921, 9409, 10201, 10609, 11449, 11881, 12769, 13225, 14161, 16129, 17161, 17689, 18769, 19321, 20449, 22201, 22801
Offset: 1

Views

Author

Jianing Song, Dec 25 2021

Keywords

Comments

k must be the square of a squarefree number. Actually, k must be the square of a cyclic number (A003277).
Number of the form (p_1*p_2*...*p_r)^2 where the p_i are distinct primes and no (p_j)^2-1 is divisible by any p_i.
The smallest term with exactly n distinct prime factors is given by A350341.
From the term 25 on, no term can be divisible by 2 or 3.

Examples

			For primes p, p^2 is a term since every group of order p^2 is abelian. Such group is isomorphic to either C_{p^2} or C_p X C_p.
For primes p, q, if p^2 !== 1 (mod q), q^2 !== 1 (mod p), then p^2*q^2 is a term since every group of that order is abelian. Such group is isomorphic to C_{p^2*q^2}, C_p X C_{p*q^2}, C_q X C_{p^2*q} or C_{p*q} X C_{p*q}.
		

Crossrefs

Cf. A051532 (abelian orders), A003277 (cyclic numbers), A350342, A350341.
A350152 = A350322 U A350323 is a subsequence. A350345 is the subsequence of squares of composite numbers.

Programs

  • PARI
    isA051532(n) = my(f=factor(n), v=vector(#f[, 1])); for(i=1, #v, if(f[i, 2]>2, return(0), v[i]=f[i, 1]^f[i, 2])); for(i=1, #v, for(j=i+1, #v, if(v[i]%f[j, 1]==1 || v[j]%f[i, 1]==1, return(0)))); 1 \\ Charles R Greathouse IV's program for A051532
    isA350343(n) = issquare(n) && isA051532(n)

Formula

a(n) = A350342(n)^2.

A350345 Squares of composite numbers k that are abelian orders.

Original entry on oeis.org

1225, 4225, 5929, 7225, 13225, 14161, 17689, 20449, 25921, 34225, 34969, 43681, 46225, 47089, 48841, 55225, 61009, 67081, 70225, 89401, 101761, 104329, 108241, 112225, 116281, 133225, 137641, 142129, 152881, 162409, 165649, 170569, 172225, 182329, 190969
Offset: 1

Views

Author

Jianing Song, Dec 25 2021

Keywords

Comments

Square numbers k that are abelian orders with at least 4 groups.
Number of the form (p_1*p_2*...*p_r)^2 where r > 1, the p_i are distinct primes and no (p_j)^2-1 is divisible by any p_i.
The smallest square number k that is an abelian order with at least 8 groups is A350341(3) = 354025.
No term can be divisible by 2 or 3.

Examples

			For primes p, q, if p^2 !== 1 (mod q), q^2 !== 1 (mod p), then p^2*q^2 is a term since every group of that order is abelian. Such group is isomorphic to C_{p^2*q^2}, C_p X C_{p*q^2}, C_q X C_{p^2*q} or C_{p*q} X C_{p*q}.
		

Crossrefs

Cf. A051532 (abelian orders), A050384, A350341.
Equals A350343 \ ({1} U A001248).
A350323 is a subsequence.

Programs

  • PARI
    isA051532(n) = my(f=factor(n), v=vector(#f[, 1])); for(i=1, #v, if(f[i, 2]>2, return(0), v[i]=f[i, 1]^f[i, 2])); for(i=1, #v, for(j=i+1, #v, if(v[i]%f[j, 1]==1 || v[j]%f[i, 1]==1, return(0)))); 1 \\ Charles R Greathouse IV's program for A051532
    isA350345(n) = issquare(n) && (n>1) && !isprime(sqrtint(n)) && isA051532(n^2)

Formula

a(n) = A350344(n)^2.
Showing 1-3 of 3 results.