A349745 Numbers k for which k * gcd(sigma(k), A003961(k)) is equal to sigma(k) * gcd(k, A003961(k)), where A003961 shifts the prime factorization one step towards larger primes, and sigma is the sum of divisors function.
1, 120, 216, 672, 2464, 22176, 228480, 523776, 640640, 837760, 5581440, 5765760, 7539840, 12999168, 19603584, 33860736, 38342304, 71344000, 95472000, 102136320, 197308800, 220093440, 345080736, 459818240, 807009280, 975576960, 1476304896, 1510831360, 1773584640
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..52 (terms below 10^11)
- Antti Karttunen, Ratio A342671(n)/A322361(n) plotted with OEIS Plot2 tool
- Index entries for sequences computed from indices in prime factorization
- Index entries for sequences related to sigma(n)
Crossrefs
Programs
-
Mathematica
f1[p_, e_] := (p^(e + 1) - 1)/(p - 1); f2[p_, e_] := NextPrime[p]^e; q[1] = True; q[n_] := n * GCD[(s = Times @@ f1 @@@ (f = FactorInteger[n])), (r = Times @@ f2 @@@ f)] == s*GCD[n, r]; Select[Range[10^6], q] (* Amiram Eldar, Nov 29 2021 *)
-
PARI
A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; isA349745(n) = { my(s=sigma(n),u=A003961(n)); (n*gcd(s,u) == (s*gcd(n,u))); };
Comments