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

A348184 a(n) is the least k such that A348172(k) = n or -1 if no such k exists.

Original entry on oeis.org

4, 1, 9, 243, 3189375, 3176523, 10598252544
Offset: 1

Views

Author

Tejo Vrush, Oct 05 2021

Keywords

Comments

Assuming A005382 is infinite, a(n) > 0 for arbitrarily large n, see A348172 for the author's conditional proof that the sequence takes on arbitrarily large values. - Charles R Greathouse IV, Oct 07 2021
From David A. Corneth, Oct 07 2021: (Start)
a(7) = 10598252544.
Proof:
Let tau(n) be the number of divisors of n (Cf. A000005).
We have q = tau(10598252544)/10598252544 = 1/27599616. So any number k that also got that value tau(k)/k must be <= 4/q^2 = 3046955213389824 < 2^52.
Lemma 1. Any number k such that tau(k)/k = 1/27599616 must be 53-smooth.
Proof by contradiction: If k is not 53-smooth then it has a prime factor p >= 59.
But since the denominator of tau(k)/k does not have such a prime factor we need p | tau(k) as well. However if tau(k) has such a prime factor then there exists a prime factor r such that r^(p-1) | k. Such r is at least 2 so r^(p-1) is at least 2^(59 - 1) > 4/q^2 = 3046955213389824. A contradiction since such k is at most 4/q^2 = 3046955213389824.
Lemma 2. There exist exactly 7 values k (including 10598252544) that have tau(k)/k = 1/27599616.
Proof: We should have 27599616 | k. Else, we cannot have the denominator of tau(k)/k being a multiple of 27599616. Checking all 53-smooth numbers <= 3046955213389824 that are multiples of 27599616 give exactly 7 values k that have tau(k)/k = 1/27599616. Those values are: 10598252544, 17222160384, 17663754240, 18215746560, 18546941952, 28703600640 and 30911569920.
Lemma 3: There are no m < 10598252544 for which there are exactly seven k that have tau(m)/m = tau(k)/k.
Proof: By a similar reasoning as shown in proof for lemma 1 we must have such k is 31-smooth since 10598252544 < 2^34. Checking all 31-smooth numbers < 10598252544 gives no m for which there exist 7 such k. (End)

Examples

			a(3) = 9 because 9 is the smallest number k such that A348172(k) = 3 (via 9, 18, 24).
		

Crossrefs

Extensions

a(7) from David A. Corneth, Oct 07 2021

A349521 Numbers k such that A348172(k) = 1.

Original entry on oeis.org

4, 16, 20, 28, 32, 36, 44, 48, 52, 64, 68, 72, 76, 92, 100, 108, 112, 116, 124, 140, 144, 148, 160, 164, 172, 176, 180, 188, 192, 196, 208, 212, 216, 220, 224, 236, 240, 244, 252, 256, 260, 268, 272, 284, 292, 304, 308, 316, 320, 332, 336, 340, 352, 356, 360, 364, 368, 380, 388, 396, 400
Offset: 1

Views

Author

Tejo Vrush, Nov 20 2021

Keywords

Crossrefs

Cf. A348172.
Similar sequences: A349467.

Programs

  • Mathematica
    Block[{nn = 9, m, s}, m = 2^(2 nn); s = KeySort@ PositionIndex[Array[DivisorSigma[0, #]/# &, m]]; s = Reverse@ KeyDrop[s, TakeWhile[Keys@ s, 4/#^2 > m &]]; Position[Length /@ Array[Lookup[s, DivisorSigma[0, #]/#] &, 2^nn], 1][[All, 1]]] (* Michael De Vlieger, Dec 06 2021 *)
  • PARI
    isok(k) = my(q=numdiv(k)/k); sum(i=1, 4/q^2, numdiv(i)/i == q) == 1; \\ Michel Marcus, Nov 20 2021
Showing 1-2 of 2 results.