A357495 -id:A357495 - cp's OEIS frontend

A357496 Greater of a pair of amicable numbers k < m such that s(k) = m and s(m) = k, where s(k) = A162296(k) - k is the sum of aliquot divisors of k that have a square factor.

1136, 11696, 22256, 25472, 43424, 73664, 131355, 304336, 267968, 492608, 612704, 674920, 640305, 788697, 691292, 705344, 723392, 813728, 809776, 1117395, 1258335, 1559696, 1518570, 1598368, 1821376, 2218250, 2058944, 2678752, 2744288, 2765024, 2848864, 2610656, 3134224

Offset: 1

Amiram Eldar, Oct 01 2022

nonn

Analogous to amicable numbers (A002025 and A002046) with nonsquarefree divisors.
The terms are ordered according to their lesser counterparts (A357495).
Both members of each pair are necessarily nonsquarefree numbers.

			1136 is a term since s(1136) = 880 and s(880) = 1136.

Amiram Eldar, Table of n, a(n) for n = 1..1000

Cf. A162296, A325314, A322609, A357493, A357494, A357495.
Subsequence of A013929.
Similar sequences: A002046, A002953, A126166, A126170, A259039, A292981, A322542, A324709, A348344.

s[n_] := Module[{f = FactorInteger[n], p, e}, p = f[[;; , 1]]; e = f[[;; , 2]]; Times @@ ((p^(e + 1) - 1)/(p - 1)) - Times @@ (p + 1) - n]; seq = {}; Do[m = s[n]; If[m > n && s[m] == n, AppendTo[seq, m]], {n, 2, 3*10^6}]; seq

A357497 Nonsquarefree numbers whose harmonic mean of nonsquarefree divisors in an integer.

Original entry on oeis.org

4, 9, 12, 18, 24, 25, 28, 45, 49, 54, 60, 90, 112, 121, 126, 132, 150, 153, 168, 169, 198, 270, 289, 294, 336, 361, 364, 414, 529, 560, 594, 630, 637, 684, 726, 841, 918, 961, 1014, 1140, 1232, 1305, 1350, 1369, 1512, 1521, 1638, 1680, 1681, 1710, 1734, 1849, 1984

Offset: 1

Amiram Eldar, Oct 01 2022

nonn

Analogous to harmonic numbers (A001599) with nonsquarefree divisors.
The squares of primes (A001248) are terms since they have a single nonsquarefree divisor.
If p is a prime then 6*p^2 is a term.

			12 is a term since its nonsquarefree divisors are 4 and 12 and their harmonic mean is 6 which is an integer.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A162296, A322609, A357493, A357494, A357495, A357496.
Subsequence of A013929.
Subsequence: A001248.
Similar sequences: A001599 (harmonic numbers), A006086 (unitary), A063947 (infinitary), A286325 (bi-unitary), A319745 (nonunitary), A335387 (tri-unitary).

q[n_] := Length[d = Select[Divisors[n], ! SquareFreeQ[#] &]] > 0 && IntegerQ[HarmonicMean[d]]; Select[Range[2000], q]

cp's OEIS Frontend

A357496 Greater of a pair of amicable numbers k < m such that s(k) = m and s(m) = k, where s(k) = A162296(k) - k is the sum of aliquot divisors of k that have a square factor.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica