A336723 -id:A336723 - cp's OEIS frontend

A336722 a(n) = gcd(tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1, 2, 1, 4, 1, 1, 1, 3, 1, 2, 1, 4, 1, 4, 1, 2, 1, 2, 1, 8, 1, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 8, 1, 2, 3, 4, 1, 2, 1, 1, 1, 2, 1, 8, 1, 8, 1, 2, 1, 12, 1, 4, 1, 1, 1, 8, 1, 2, 1, 8, 1, 3, 1, 2, 1, 2, 1, 8, 1, 2, 1, 2, 1, 4, 1, 4, 1, 4, 1, 6, 1, 2, 1, 4, 1, 12, 1, 1, 3, 1, 1, 8, 1, 2, 1

Offset: 1

Jaroslav Krizek, Aug 01 2020

nonn

a(n) = tau(n) for numbers n: 1, 6, 14, 22, 30, 38, 42, 46, 54, 56, 60, 62, 66, 70, 78, 86, 94, 96, 102, ...

			a(6) = gcd(tau(6), sigma(6), pod(6)) = gcd(4, 12, 36) = 4.

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A009205 (gcd(tau(n), sigma(n))), A306671 (gcd(tau(n), pod(n))), A306682 (gcd(sigma(n), pod(n))).
Cf. A000005 (tau(n)), A000203 (sigma(n)), A007955 (pod(n)), A336723 (lcm(tau(n), sigma(n), pod(n))).
Cf. A277521 (numbers k such that a(k) = tau(k) and simultaneously A336723(k) = pod(k)).

[GCD([#Divisors(n), &+Divisors(n), &*Divisors(n)]): n in [1..100]];

a[n_] := GCD @@ {(d = DivisorSigma[0,n]), DivisorSigma[1, n], n^(d/2)}; Array[a, 100] (* Amiram Eldar, Aug 01 2020 *)

A007955(n) = if(issquare(n, &n), n^numdiv(n^2), n^(numdiv(n)/2)); \\ From A007955
A336722(n) = gcd(A007955(n), gcd(numdiv(n), sigma(n))); \\ Antti Karttunen, Aug 10 2020

a(p) = 1 for p = primes (A000040).

a(n) = gcd(A007955(n), A009205(n)). - Antti Karttunen, Aug 10 2020

Data section extended up to a(105) by Antti Karttunen, Aug 10 2020

A337323 a(n) = gcd(n, tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 2, 1, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 8, 1, 2, 1, 12, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 4, 1, 2, 1

Offset: 1

Jaroslav Krizek, Aug 23 2020

GCD(n, tau(n), sigma(n), pod(n)) = GCD(n, tau(n), sigma(n)). - David A. Corneth, Aug 24 2020

			a(6) = gcd(6, tau(6), sigma(6), pod(6)) = gcd(6, 4, 12, 36) = 2.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A336722 (gcd(tau(n), sigma(n), pod(n))).
Cf. A337324 (least m such that gcd(m, tau(m), sigma(m), pod(m)) = n).
Cf. A336723 (lcm(tau(n), sigma(n), pod(n))) = (lcm(n, tau(n), sigma(n), pod(n))).
Cf. A000005, A000203, A007955.

[GCD([n, #Divisors(n), &+Divisors(n), &*Divisors(n)]): n in [1..100]]

f:= proc(n) uses numtheory; igcd(n, tau(n), sigma(n)) end proc:
map(f, [$1..100]); # Robert Israel, Sep 01 2020

a[n_] := GCD @@ {n, DivisorSigma[0, n], DivisorSigma[1, n]}; Array[a, 100] (* Amiram Eldar, Aug 24 2020 *)

a(n) = my(f=factor(n)); gcd([n, sigma(f), numdiv(f)]); \\ Michel Marcus, Apr 01 2021

a(p) = 1 for p = primes (A000040).

a(n) = 1 for n = p^k, p prime, k >= 0 (A000961). - Bernard Schott, Apr 01 2021

A338395 Numbers m such that lcm(tau(m), sigma(m), pod(m)) = pod(m).

Original entry on oeis.org

1, 6, 30, 66, 84, 102, 120, 210, 270, 318, 330, 420, 462, 510, 546, 570, 642, 672, 690, 714, 840, 870, 924, 930, 966, 1080, 1092, 1122, 1320, 1410, 1428, 1518, 1590, 1638, 1722, 1770, 1890, 1932, 2040, 2130, 2226, 2280, 2310, 2346, 2370, 2604, 2670, 2730, 2760

Offset: 1

Jaroslav Krizek, Oct 23 2020

nonn

Numbers m such that A336723(m)= lcm(A000005(m), A000203(m), A007955(m)) = A007955(m).
Numbers m such that both values tau(m) and sigma(m) divide pod(m).
Numbers m such that all values m, tau(m) and sigma(m) divide pod(m); i.e. lcm(m, tau(m), sigma(m), pod(m)) = pod(m).
Supersequence of A277521.

			lcm(tau(6), sigma(6), pod(6)) = lcm(4, 12, 36) = 36 = pod(6).

Vaclav Kotesovec, Table of n, a(n) for n = 1..12916 (a(n) < 10^7)
Vaclav Kotesovec, Plot of a(n)/n^(3/2) for n = 1..12916

Cf. A000005 (tau), A000203 (sigma), A007955 (pod).

Cf. A277521, A336723.

[m: m in [1..10^5] | LCM([#Divisors(m), &+Divisors(m), &*Divisors(m)]) eq &*Divisors(m)]

Select[Range[3000], LCM @@ {(d = DivisorSigma[0, #]), DivisorSigma[1, #], (pod = #^(d/2))} == pod &] (* Amiram Eldar, Oct 24 2020 *)

isok(m) = my(d=divisors(m), prd=vecprod(d)); lcm([#d, vecsum(d), prd]) == prd; \\ Michel Marcus, Oct 24 2020

A329929 a(n) = lcm(tau(n), sigma(n), pod(n)) / gcd(tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Original entry on oeis.org

1, 6, 12, 168, 30, 9, 56, 960, 351, 450, 132, 6048, 182, 294, 1800, 158720, 306, 25272, 380, 84000, 14112, 1089, 552, 414720, 11625, 7098, 29160, 32928, 870, 101250, 992, 2064384, 17424, 15606, 58800, 917070336, 1406, 5415, 85176, 11520000, 1722, 777924, 1892

Offset: 1

Jaroslav Krizek, Aug 31 2020

nonn

a(n) is also lcm(n, tau(n), sigma(n), pod(n)) / gcd(tau(n), sigma(n), pod(n)).

			a(6) = lcm(tau(6), sigma(6), pod(6)) / gcd(tau(6), sigma(6), pod(6)) = lcm(4, 12, 36) / gcd(4, 12, 36) = 36 / 4 = 9.

Cf. A336722, A336723, A337323.
Cf. A334985 (lcm(n, tau(n), sigma(n), pod(n)) / gcd(n, tau(n), sigma(n), pod(n))).
Cf. A000005, A000203, A007955.

[LCM([#Divisors(n), &+Divisors(n), &*Divisors(n)]) / GCD([#Divisors(n), &+Divisors(n), &*Divisors(n)]): n in [1..100]];

a[n_] := LCM @@ (t = {(d = DivisorSigma[0, n]), n^(d/2), DivisorSigma[1, n]}) / GCD @@ t; Array[a, 50] (* Amiram Eldar, Aug 31 2020 *)

a(n) = my(f=factor(n), v=[numdiv(f), sigma(f), vecprod(divisors(f))]); lcm(v)/gcd(v); \\ Michel Marcus, Aug 31 2020

a(n) = lcm(n, tau(n), sigma(n), pod(n)) / gcd(tau(n), sigma(n), pod(n)).
a(n) = A336723(n) / A336722(n).
a(p) = p * (p+1) for p = primes.

A334985 a(n) = lcm(n, tau(n), sigma(n), pod(n)) / gcd(n, tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Original entry on oeis.org

1, 6, 12, 168, 30, 18, 56, 960, 351, 450, 132, 6048, 182, 588, 1800, 158720, 306, 25272, 380, 84000, 14112, 2178, 552, 414720, 11625, 7098, 29160, 32928, 870, 405000, 992, 2064384, 17424, 15606, 58800, 917070336, 1406, 10830, 85176, 11520000, 1722, 3111696

Offset: 1

Jaroslav Krizek, Sep 22 2020

nonn

			a(6) = lcm(6, tau(6), sigma(6), pod(6)) / gcd(6, tau(6), sigma(6), pod(6))  = lcm(6, 4, 12, 36) / gcd(6, 4, 12, 36) = 36 / 2 = 18.

Cf. A336722, A336723, A337323.

Cf. A329929 (lcm(tau(n), sigma(n), pod(n)) / gcd(tau(n), sigma(n), pod(n))).

[LCM([#Divisors(n), &+Divisors(n), &*Divisors(n)]) / GCD([#Divisors(n), &+Divisors(n), &*Divisors(n)]): n in [1..100]]

a[n_] := LCM @@ {(d = DivisorSigma[0, n]), (s = DivisorSigma[1, n]), n^(d/2)} / GCD @@ {n, d, s}; Array[a, 50] (* Amiram Eldar, Sep 22 2020 *)

a(n) = my(f=factor(n), v=[n, numdiv(f), sigma(f), vecprod(divisors(f))]); lcm(v)/gcd(v); \\ Michel Marcus, Sep 22 2020

a(n) = lcm(tau(n), sigma(n), pod(n)) / gcd(n, tau(n), sigma(n)).

a(n) = A336723(n) / A337323(n).

A338406 Numbers m such that tau(m), sigma(m) and pod(m) are pairwise relatively prime.

Original entry on oeis.org

1, 4, 16, 25, 64, 81, 100, 121, 256, 289, 484, 529, 729, 841, 1024, 1156, 1296, 1600, 1681, 1936, 2116, 2209, 2401, 2809, 3025, 3364, 3481, 4096, 4624, 5041, 5184, 6400, 6724, 6889, 7225, 7921, 8464, 8836, 10201, 11236, 11449, 11664, 12100, 12769, 13225, 13456

Offset: 1

Jaroslav Krizek, Oct 24 2020

nonn

Numbers m such that A336723(m) = A000005(m) * A000203(m) * A007955(m).
Numbers m such that lcm(m, tau(m), sigma(m), pod(m)) = tau(m) * sigma(m) * pod(m).
Subsequence of numbers m such that A336722(m) = gcd(tau(m), sigma(m), pod(m)) = 1.
From David A. Corneth, Dec 11 2020: (Start)
a(n) is a perfect square. Proof: If a(n) is not a perfect square but is even then both tau(a(n)) and pod(a(n)) are divisible by 2. Contradiction.
If a(n) is not a perfect square and is odd then both tau(a(n)) and sigma(a(n)) are even. Contradiction.
Hence if a(n) is not a perfect square then it can be neither even nor odd. So a(n) is a perfect square. Q.E.D. (End)

			lcm(tau(4), sigma(4), pod(4)) = lcm(3, 7, 8) = tau(4) * sigma(4) * pod(4) = 3 * 7 * 8 = 168.

David A. Corneth, Table of n, a(n) for n = 1..10000

Cf. A000005 (tau), A000203 (sigma), A007955 (pod).

Cf. A336722, A336723, A338395.

[m: m in [1..10^5] | LCM([#Divisors(m), &+Divisors(m), &*Divisors(m)]) eq #Divisors(m) * &+Divisors(m) * &*Divisors(m)]

Select[Range[15000], CoprimeQ[(d = DivisorSigma[0, #]), (s = DivisorSigma[1, #])] && CoprimeQ[d, (p = #^(d/2))] && CoprimeQ[s, p] &] (* Amiram Eldar, Oct 25 2020 *)

isok(m) = my(d=divisors(m), t=#d, s=vecsum(d), p=vecprod(d)); t*s*p == lcm([t,s,p]); \\ Michel Marcus, Oct 25 2020

cp's OEIS Frontend

A336722 a(n) = gcd(tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

Extensions

A337323 a(n) = gcd(n, tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

A338395 Numbers m such that lcm(tau(m), sigma(m), pod(m)) = pod(m).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A329929 a(n) = lcm(tau(n), sigma(n), pod(n)) / gcd(tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A334985 a(n) = lcm(n, tau(n), sigma(n), pod(n)) / gcd(n, tau(n), sigma(n), pod(n)) where tau(k) is the number of divisors of k (A000005), sigma(k) is the sum of divisors of k (A000203) and pod(k) is the product of divisors of k (A007955).

Views

Author

Keywords

Examples

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A338406 Numbers m such that tau(m), sigma(m) and pod(m) are pairwise relatively prime.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI