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.

Previous Showing 11-20 of 887 results. Next

A246282 Numbers k for which A003961(k) > 2*k; numbers n such that if n = Product_{k >= 1} (p_k)^(c_k), then Product_{k >= 1} (p_{k+1})^(c_k) > 2*n, where p_k indicates the k-th prime, A000040(k).

Original entry on oeis.org

4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 27, 28, 30, 32, 35, 36, 39, 40, 42, 44, 45, 48, 49, 50, 52, 54, 56, 57, 60, 63, 64, 66, 68, 69, 70, 72, 75, 76, 78, 80, 81, 84, 88, 90, 91, 92, 96, 98, 99, 100, 102, 104, 105, 108, 110, 112, 114, 116, 117, 120, 124, 125, 126, 128, 130, 132, 135, 136, 138, 140, 144
Offset: 1

Views

Author

Antti Karttunen, Aug 24 2014

Keywords

Comments

Numbers n such that A003961(n) > 2*n.
Numbers n such that A048673(n) > n.
The sequence grows as:
a(10) = 18
a(100) = 192
a(1000) = 1830
a(10000) = 18636
a(100000) = 187350
a(1000000) = 1865226
a(10000000) = 18654333
and the powers of 10 occur at:
a(5) = 10
a(53) = 100
a(536) = 1000
a(5423) = 10000
a(53290) = 100000
a(535797) = 1000000
a(5361886) = 10000000
suggesting that the ratio a(n)/n is converging to an constant and an arbitrary natural number is slightly more likely to be in this sequence than in the complement A246281. See also comments at A246351 and compare to quite a different ratio present in the "inverse" case A246362.
From Antti Karttunen, Aug 27 2020: (Start)
Any perfect number, including all odd perfect numbers (if such numbers exist), must occur in this sequence. See A286385 and A326042 for the reason why.
Like abundancy index (ratio A000203(n)/n), also ratio A003961(n)/n is multiplicative and always > 1 for all n > 1. Thus if the number has a proper divisor that is in this sequence, then the number itself also is. See A337372 for terms included here, but with no proper divisor in this sequence. (End)
For k >= 2, if m * A130789(k) is a term then m * A130789(k-1) is a term. - Peter Munn, Sep 01 2025
Could be called "primeshift-abundant numbers", in analogy with A005101. - Antti Karttunen, Sep 01 2025

Examples

			3 = p_2 (3 is the second prime, A000040(2)) is not a member, because p_3 = 5 (5 is the next prime after 3, A000040(3)) and 5/3 < 2.
4 = 2*2 = p_1 * p_1 is a member, as p_2 * p_2 = 3*3 = 9, and 9/4 > 2.
33 = 3*11 = p_2 * p_5 is not a member, as p_3 * p_6 = 5*13 = 65, and 65/33 < 2.
35 = 5*7 = p_3 * p_4 is a member, as p_4 * p_5 = 7*11 = 77, and 77/35 > 2.
		

Crossrefs

Complement: A246281.
Setwise difference of A246352 and A048674.
Cf. A000040, A003961, A048673, A130789, A246362, A252742 (characteristic function), A286385, A326042, A337345.
Positions of positive terms in A252748 and in A337345.
Union of A337372 (primitive terms), A341610 (non-primitive terms).
Cf. also A275717, A275718.

Programs

  • Mathematica
    Select[Range[144], 2 # < Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[# == 1] &] (* Michael De Vlieger, Feb 22 2021 *)
  • PARI
    A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
    isA246282(n) = (A003961(n) > (n+n));
    n = 0; i = 0; while(i < 10000, n++; if(isA246282(n), i++; write("b246282.txt", i, " ", n)));
    
  • Scheme
    ;; With Antti Karttunen's IntSeq-library.
    (define A246282 (MATCHING-POS 1 1 (lambda (n) (> (A003961 n) (* 2 n)))))
    
  • Scheme
    ;; With Antti Karttunen's IntSeq-library.
    (define A246282 (MATCHING-POS 1 1 (lambda (n) (> (A048673 n) n))))

Extensions

A new shorter version of name prepended by Antti Karttunen, Aug 27 2020

A341529 a(n) = sigma(n) * A003961(n), where A003961 shifts the prime factorization of n one step towards larger primes, and sigma is the sum of the divisors of n.

Original entry on oeis.org

1, 9, 20, 63, 42, 180, 88, 405, 325, 378, 156, 1260, 238, 792, 840, 2511, 342, 2925, 460, 2646, 1760, 1404, 696, 8100, 1519, 2142, 5000, 5544, 930, 7560, 1184, 15309, 3120, 3078, 3696, 20475, 1558, 4140, 4760, 17010, 1806, 15840, 2068, 9828, 13650, 6264, 2544, 50220, 6897, 13671, 6840, 14994, 3186, 45000, 6552, 35640
Offset: 1

Views

Author

Antti Karttunen, Feb 16 2021

Keywords

Comments

Question: Does the maximum value of ratio A341529(n)/A341528(n) stay below 2?
From Amiram Eldar and Antti Karttunen, Jan 28 2023: (Start)
Answer to the above question is yes: Sup_{n>=1} A341529(n)/A341528(n) = 2.
Proof:
f(n) = A341529(n)/A341528(n) is a multiplicative function with f(p^e) = (1 + 1/p + ... + 1/p^e)/(1 + 1/q + ... + 1/q^e), where q = nextprime(p).
First we prove a lemma which states that f(p^(1+e)) / f(p^e) > 1, for any prime p, and exponent e.
We note that (sigma(p^(1+e))/(p^(1+e))) / (sigma(p^e)/(p^e)) = (sigma(p^(1+e))/(p*sigma(p^e))) = sigma(p^(1+e)) / (sigma(p^(1+e)) - 1), so setting q = nextprime(p), we can write the ratio f(p^(1+e)) / f(p^e) as (sigma(p^(1+e))/(sigma(p^(1+e))-1)) / (sigma(q^(1+e))/(sigma(q^(1+e))-1)), and to prove this to be > 1, we just note that the denominator is less than the numerator, because sigma(p^e) is monotonically growing with respect to the increasing prime p.
Since q > p, we have f(p^e) > 1 for all p and all e>=1, and together with the above lemma this shows that f(n) <= f(n*m) for all m>=1.
Suppose n = Product_i p_i^e_i, and let pmax = max(p_i), emax = max(e_i), so n is a divisor of m = (pmax#)^emax, and f(n) < f(m), where p# = 2 * 3 * ... * p is the primorial of p, A034386(p).
Then f(m) = f(2^emax) * f(3^emax) * ... * f(pmax^emax) = (1 + 1/2 + ... + 1/2^emax)/(1 + 1/3 + ... + 1/3^emax)) * (1 + 1/3 + ... + 1/3^emax)/(1 + 1/5 + ... + 1/5^emax)) * ... * (1 + 1/p + ... + 1/p^emax)/(1 + 1/q + ... + 1/q^emax))[telescoping product] = (1 + 1/2 + ... + 1/2^emax)/(1 + 1/qmax + ... + 1/qmax^emax) <= (1 + 1/2 + ... + 1/2^emax) < 2, where qmax = nextprime(pmax).
So we have f(n) < 2 for all n.
To prove that 2 is the supremum, we have lim_{e,k -> oo) f(prime(k)#^e) = 2.
(End)

Crossrefs

Programs

  • Mathematica
    Array[DivisorSigma[1, #]*Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[# == 1] &, 56] (* Michael De Vlieger, Feb 22 2021 *)
  • PARI
    A003961(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
    A341529(n) = (sigma(n)*A003961(n));

Formula

Multiplicative with a(p^e) = q^e * (p^(e+1)-1)/(p-1), where q = nextPrime(p).
a(n) = A000203(n) * A003961(n).
For all n > 1, a(n) > A341528(n).
For all n >= 1, A072861(n) <= a(n) <= A003961(n)^2. [See A286385].
a(n) = A341528(n) + A341512(n) = A342671(n) * A342672(n) = A342661(A003961(n)). - Antti Karttunen, Mar 22 2021
Sum_{k=1..n} a(k) ~ c * n^3, where c = (1/3) * Product_{p prime} p^4*(p-1)/((p^3-nextprime(p))*(p^2-nextprime(p))) = 3.0664809..., where nextprime is A151800. - Amiram Eldar, Dec 08 2022

A322361 a(n) = gcd(n, A003961(n)), where A003961 is completely multiplicative with a(prime(k)) = prime(k+1).

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 5, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 15, 1, 1, 1, 1, 7, 9, 1, 1, 1, 1, 1, 3, 1, 1, 5, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 15, 1, 1, 1, 1, 1, 3, 1, 1, 1, 7, 1, 9, 1, 1, 5, 1, 11, 3, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 15, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 35
Offset: 1

Views

Author

Antti Karttunen, Dec 05 2018

Keywords

Crossrefs

Programs

  • Mathematica
    a[n_] := If[n == 1, 1, GCD[n, Times@@(NextPrime[First[#]]^Last[#] &/@FactorInteger[n])]]; Array[a, 100] (* Amiram Eldar, Dec 05 2018 *)
  • PARI
    A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
    A322361(n) = gcd(n, A003961(n));
    
  • Python
    from math import gcd, prod
    from sympy import nextprime, factorint
    def A322361(n): return gcd(n,prod(nextprime(p)**e for p, e in factorint(n).items())) # Chai Wah Wu, Dec 26 2022

Formula

a(n) = gcd(n, A003961(n)).
a(n) = A003961(gcd(n, A064989(n))).

A246281 Numbers k for which A003961(k) < 2*k; Numbers n such that if n = product_{k >= 1} (p_k)^(c_k), then product_{k >= 1} (p_{k+1})^(c_k) < 2*n, where p_k indicates the k-th prime, A000040(k).

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 17, 19, 22, 23, 25, 26, 29, 31, 33, 34, 37, 38, 41, 43, 46, 47, 51, 53, 55, 58, 59, 61, 62, 65, 67, 71, 73, 74, 77, 79, 82, 83, 85, 86, 87, 89, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 119, 121, 122, 123, 127, 129, 131, 133, 134, 137, 139
Offset: 1

Views

Author

Antti Karttunen, Aug 24 2014

Keywords

Comments

Numbers n such that A003961(n) < 2*n.
Numbers n such that A048673(n) <= n.
All primes (A000040) are members. (Cf. Bertrand's postulate).
All terms are deficient (in A005100). See A286385. - Antti Karttunen, Aug 27 2020

Examples

			1 is present, as 1 = empty product and 1 < 2.
2 = p_1 is in the sequence, as p_2 = 3 and 3/2 < 2.
4 = p_1 * p_1 is not a member, as p_2 * p_2 = 3*3 = 9, and 9/4 > 2.
22 = 2*11 = p_1 * p_5 is a member, as p_2 * p_6 = 39, and 39/22 < 2.
		

Crossrefs

Complement: A246282.
Union of A246351 and A048674.
Subsequence: A000040.
Subsequence of A005100.
Positions of zeros in A252742, in A336836, and in A337345.
Positions of negative terms in A252748.

Programs

  • PARI
    A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i,1] = nextprime(f[i,1]+1)); factorback(f);
    isA246281(n) = (A003961(n) < (n+n));
    n = 0; i = 0; while(i < 10000, n++; if(isA246281(n), i++; write("b246281.txt", i, " ", n)));
    
  • Scheme
    ;; With Antti Karttunen's IntSeq-library.
    (define A246281 (MATCHING-POS 1 1 (lambda (n) (<= (A048673 n) n))))

Extensions

A new shorter version of name prepended by Antti Karttunen, Aug 27 2020

A337372 Primitively primeshift-abundant numbers: Numbers that are included in A246282 (k with A003961(k) > 2k), but none of whose proper divisors are.

Original entry on oeis.org

4, 6, 9, 10, 14, 15, 21, 35, 39, 49, 57, 69, 91, 125, 242, 275, 286, 325, 338, 363, 418, 425, 442, 475, 494, 506, 561, 575, 598, 646, 682, 715, 722, 725, 754, 775, 782, 806, 845, 847, 867, 874, 925, 957, 962, 1023, 1025, 1045, 1054, 1058, 1066, 1075, 1105, 1118, 1175, 1178, 1221, 1222, 1235, 1265, 1309, 1325, 1334, 1353
Offset: 1

Views

Author

Antti Karttunen, Aug 27 2020

Keywords

Comments

Numbers k whose only divisor in A246282 is k itself, i.e., A003961(k) > 2k, but for none of the proper divisors d|k, dA003961(d) > 2d.
Question: Do the odd terms in A326134 all occur here? Answer is yes, if the following conjecture holds: This is a subsequence of A263837, nonabundant numbers. In other words, we claim that any abundant number k (A005101) has A337345(k) > 1 and thus is a term of A341610. (The conjecture indeed holds. See the proof below).
From Antti Karttunen, Dec 06 2024: (Start)
Observation 1: The thirteen initial terms (4, 6, 9, ..., 69, 91) are only semiprimes in A246282, all other semiprimes being in A246281 (but none in A341610), and there seems to be only 678 terms m with A001222(m) = 3, from a(14) = 125 to the last one of them, a(2691) = 519963. There are more than 150000 terms m with A001222(m) = 4. In general, there should be only a finite number of terms m for any given k = A001222(m). Compare for example with A287728.
Observation 2: The intersection with A005101 (and thus also with A091191) is empty, which then implies the claims made in the sequences A378662, A378664, from which further follows that there are no 1's present in any of these sequences: A378658, A378736, A378740.
(End)
Proof of the latter observation by Jianing Song, Dec 11 2024: (Start)
Let's write p' for the next prime after the prime p. Also, write Q(n) = A003961(n)/sigma(n) which is multiplicative.
Proposition: For n > 1 not being a prime nor twice a prime, n has a factor p such that Q(n) > p'/p.
This implies that if n is abundant [including any primitively abundant n in A091191], then n has a factor p such that A003961(n/p)/(n/p) = (A003961(n)/n)/(p'/p) > sigma(n)/n [which is > 2 because n is abundant], so n/p is in A246282, meaning that n cannot be in this sequence.
Proof. We see that 1 <= Q(p) <= Q(p^2) <= ..., which implies that if n verifies the proposition, then every multiple of n also verifies it. Since n = p^2 > 4 and n = 8 verify the proposition, it suffices to consider the case where n = pq is the product of two distinct odd primes. Suppose WLOG that p < q, so q >= p', then using q/(q+1) >= p'/(p'+1) we have
Q(n) = p'q'/((p+1)(q+1)) >= p'^2*q'/(q(p+1)(p'+1)) > (p'^2-1)*q'/(q(p+1)(p'+1)) = (p'-1)/(p+1) * q'/q >= q'/q.
(End)

Examples

			14 = 2*7 is in the sequence as setting every prime to the next larger prime gives 3*11 = 33 > 28 = 2*14. Doing so for any proper divisor d of 14 gives a number < 2 * d. - _David A. Corneth_, Dec 07 2024
		

Crossrefs

Setwise difference A246282 \ A341610.
Positions of ones in A337345 and in A341609 (characteristic function).
Subsequence of A263837 and thus also of A341614.
Cf. also A005101, A091191, A326134.
Cf. also A337543.

Programs

  • Mathematica
    Block[{a = {}, b = {}}, Do[If[2 i < Times @@ Map[#1^#2 & @@ # &, FactorInteger[i] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[i == 1], AppendTo[a, i]; If[IntersectingQ[Most@ Divisors[i], a], AppendTo[b, i]]], {i, 1400}]; Complement[a, b]] (* Michael De Vlieger, Feb 22 2021 *)
  • PARI
    A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
    A252742(n) = (A003961(n) > (2*n));
    A337346(n) = sumdiv(n,d,(dA252742(d));
    isA337372(n) = ((1==A252742(n))&&(0==A337346(n)));
    
  • PARI
    is_A337372 = A341609;
    
  • PARI
    \\ See Corneth link

Formula

{k: 1==A337345(k)}.

A275735 Prime-factorization representations of "factorial base level polynomials": a(0) = 1; for n >= 1, a(n) = 2^A257511(n) * A003961(a(A257684(n))).

Original entry on oeis.org

1, 2, 2, 4, 3, 6, 2, 4, 4, 8, 6, 12, 3, 6, 6, 12, 9, 18, 5, 10, 10, 20, 15, 30, 2, 4, 4, 8, 6, 12, 4, 8, 8, 16, 12, 24, 6, 12, 12, 24, 18, 36, 10, 20, 20, 40, 30, 60, 3, 6, 6, 12, 9, 18, 6, 12, 12, 24, 18, 36, 9, 18, 18, 36, 27, 54, 15, 30, 30, 60, 45, 90, 5, 10, 10, 20, 15, 30, 10, 20, 20, 40, 30, 60, 15, 30, 30, 60, 45, 90, 25, 50, 50, 100, 75
Offset: 0

Views

Author

Antti Karttunen, Aug 09 2016

Keywords

Comments

These are prime-factorization representations of single-variable polynomials where the coefficient of term x^(k-1) (encoded as the exponent of prime(k) in the factorization of n) is equal to the number of times a nonzero digit k occurs in the factorial base representation of n. See the examples.

Examples

			For n = 0 whose factorial base representation (A007623) is also 0, there are no nonzero digits at all, thus there cannot be any prime present in the encoding, and a(0) = 1.
For n = 1 there is just one 1, thus a(1) = prime(1) = 2.
For n = 2 ("10"), there is just one 1-digit, thus a(2) = prime(1) = 2.
For n = 3 ("11") there are two 1-digits, thus a(3) = prime(1)^2 = 4.
For n = 18 ("300") there is just one 3, thus a(18) = prime(3) = 5.
For n = 19 ("301") there is one 1 and one 3, thus a(19) = prime(1)*prime(3) = 2*5 = 10.
For n = 141 ("10311") there are three 1's and one 3, thus a(141) = prime(1)^3 * prime(3) = 2^3 * 5^1 = 40.
		

Crossrefs

Cf. also A275725, A275733, A275734 for other such prime factorization encodings of A060117/A060118-related polynomials, and also A276076.
Differs from A227154 for the first time at n=18, where a(18) = 5, while A227154(18) = 4.

Programs

  • PARI
    A276076(n) = { my(i=0,m=1,f=1,nextf); while((n>0),i=i+1; nextf = (i+1)*f; if((n%nextf),m*=(prime(i)^((n%nextf)/f));n-=(n%nextf));f=nextf); m; };
    A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
    A275735(n) = A181819(A276076(n)); \\ Antti Karttunen, Apr 03 2022
  • Python
    from sympy import prime
    from operator import mul
    import collections
    def a007623(n, p=2): return n if n

Formula

a(0) = 1; for n >= 1, a(n) = 2^A257511(n) * A003961(a(A257684(n))).
Other identities and observations. For all n >= 0:
a(n) = A275734(A225901(n)).
A001221(a(n)) = A275806(n).
A001222(a(n)) = A060130(n).
A048675(a(n)) = A275729(n).
A051903(a(n)) = A264990(n).
A008683(a(A265349(n))) = -1 or +1 for all n >= 0.
A008683(a(A265350(n))) = 0 for all n >= 1.
From Antti Karttunen, Apr 03 2022: (Start)
A342001(a(n)) = A351954(n).
a(n) = A181819(A276076(n)). (End)

A326057 a(n) = gcd(A003961(n)-2n, A003961(n)-sigma(n)), where A003961(n) is fully multiplicative function with a(prime(k)) = prime(k+1).

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 1, 1, 1, 43, 1, 3, 5, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 3, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 3, 19, 1, 1, 1, 1, 3, 5, 1, 1, 1, 1, 3, 3, 5, 7, 1, 1, 3, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 5, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 3, 1, 1
Offset: 1

Views

Author

Antti Karttunen, Jun 06 2019

Keywords

Comments

Terms a(n) larger than 1 and equal to A252748(n) occur at n = 6, 28, 69, 91, 496, ..., see A326134. See also A349753.
Records 1, 3, 43, 45, 2005, 79243, ... occur at n = 1, 6, 28, 360, 496, 8128, ...

Crossrefs

Programs

  • Mathematica
    Array[GCD[#3 - #1, #3 - #2] & @@ {2 #, DivisorSigma[1, #], Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[# == 1]} &, 78] (* Michael De Vlieger, Feb 22 2021 *)
  • PARI
    A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
    A252748(n) = (A003961(n) - (2*n));
    A286385(n) = (A003961(n) - sigma(n));
    A326057(n) = gcd(A252748(n), A286385(n));

Formula

a(n) = gcd(A252748(n), A286385(n)) = gcd(A003961(n) - 2n, A003961(n) - A000203(n)).
a(n) = gcd(A252748(n), A033879(n)) = gcd(A286385(n), A033879(n)). [Also A033880 can be used] - Antti Karttunen, May 06 2024

A341528 a(n) = n * sigma(A003961(n)), where A003961 shifts the prime factorization of n one step towards larger primes, and sigma is the sum of the divisors of n.

Original entry on oeis.org

1, 8, 18, 52, 40, 144, 84, 320, 279, 320, 154, 936, 234, 672, 720, 1936, 340, 2232, 456, 2080, 1512, 1232, 690, 5760, 1425, 1872, 4212, 4368, 928, 5760, 1178, 11648, 2772, 2720, 3360, 14508, 1554, 3648, 4212, 12800, 1804, 12096, 2064, 8008, 11160, 5520, 2538, 34848, 6517, 11400, 6120, 12168, 3180, 33696, 6160, 26880
Offset: 1

Views

Author

Antti Karttunen, Feb 16 2021

Keywords

Crossrefs

Programs

  • Mathematica
    Array[#1 DivisorSigma[1, #2] & @@ {#, Times @@ Map[#1^#2 & @@ # &, FactorInteger[#] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[# == 1]} &, 56] (* Michael De Vlieger, Feb 22 2021 *)
  • PARI
    A003961(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
    A003973(n) = sigma(A003961(n));
    A341528(n) = (n*A003973(n));

Formula

Multiplicative with a(p^e) = (p^e) * (q^(e+1)-1)/(q-1) where q = nextPrime(p).
a(n) = n * A003973(n) = n * A000203(A003961(n)).
From Antti Karttunen, Mar 29 2021: (Start)
a(n) <= A341529(n).
a(n) = A341529(n) - A341512(n).
a(n) = A342662(A003961(n)).
(End)
Sum_{k=1..n} a(k) ~ c * n^3, where c = (1/3) * Product_{p prime} p^3/((p+1)*(p^2-nextprime(p))) = 2.26342530..., where nextprime is A151800. - Amiram Eldar, Dec 08 2022

A349169 Numbers k such that k * gcd(sigma(k), A003961(k)) is equal to the odd part of {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.

Original entry on oeis.org

1, 15, 105, 3003, 3465, 13923, 45045, 264537, 459459, 745875, 1541475, 5221125, 8729721, 10790325, 14171625, 29288025, 34563375, 57034575, 71430975, 99201375, 109643625, 144729585, 205016175, 255835125, 295708875, 356080725, 399242025, 419159475, 449323875, 928602675, 939495375, 1083656925, 1941623775, 1962350685, 2083228875
Offset: 1

Views

Author

Antti Karttunen, Nov 10 2021

Keywords

Comments

Numbers k such that A348990(k) [= k/gcd(k, A003961(k))] is equal to A348992(k), which is the odd part of A349162(k), thus all terms must be odd, as A348990 preserves the parity of its argument.
Equally, numbers k for which gcd(A064987(k), A191002(k)) is equal to A000265(gcd(A064987(k), A341529(k))).
Also odd numbers k for which A348993(k) = A319627(k).
Odd terms of A336702 are given by the intersection of this sequence and A349174.
Conjectures:
(1) After 1, all terms are multiples of 3. (Why?)
(2) After 1, all terms are in A104210, in other words, for all n > 1, gcd(a(n), A003961(a(n))) > 1. Note that if we encountered a term k with gcd(k, A003961(k)) = 1, then we would have discovered an odd multiperfect number.
(3) Apart from 1, 15, 105, 3003, 13923, 264537, all other terms are abundant. [These apparently are also the only terms that are not Zumkeller, A083207. Note added Dec 05 2024]
(4) After 1, all terms are in A248150. (Cf. also A386430).
(5) After 1, all terms are in A348748.
(6) Apart from 1, there are no common terms with A349753.
Note: If any of the last four conjectures could be proved, it would refute the existence of odd perfect numbers at once. Note that it seems that gcd(sigma(k), A003961(k)) < k, for all k except these four: 1, 2, 20, 160.
Questions:
(1) For any term x here, can 2*x be in A349745? (Partial answer: at least x should be in A191218 and should not be a multiple of 3). Would this then imply that x is an odd perfect number? (Which could explain the points (1) and (4) in above, assuming the nonexistence of opn's).

Crossrefs

Programs

  • Mathematica
    Select[Range[10^6], #1/GCD[#1, #3] == #2/(2^IntegerExponent[#2, 2]*GCD[#2, #3]) & @@ {#, DivisorSigma[1, #], Times @@ Map[NextPrime[#1]^#2 & @@ # &, FactorInteger[#]]} &] (* Michael De Vlieger, Nov 11 2021 *)
  • PARI
    A000265(n) = (n >> valuation(n, 2));
    A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
    isA349169(n) = { my(s=sigma(n),u=A003961(n)); (n*gcd(s,u) == A000265(s)*gcd(n,u)); }; \\ (Program simplified Nov 30 2021)

Formula

For all n >= 1, A007949(A000203(a(n))) = A007949(a(n)). [sigma preserves the 3-adic valuation of the terms of this sequence] - Antti Karttunen, Nov 29 2021

Extensions

Name changed and comment section rewritten by Antti Karttunen, Nov 29 2021

A349905 Arithmetic derivative of A003961(n), where A003961 is fully multiplicative with a(p) = nextprime(p).

Original entry on oeis.org

0, 1, 1, 6, 1, 8, 1, 27, 10, 10, 1, 39, 1, 14, 12, 108, 1, 55, 1, 51, 16, 16, 1, 162, 14, 20, 75, 75, 1, 71, 1, 405, 18, 22, 18, 240, 1, 26, 22, 216, 1, 103, 1, 87, 95, 32, 1, 621, 22, 91, 24, 111, 1, 350, 20, 324, 28, 34, 1, 318, 1, 40, 135, 1458, 24, 119, 1, 123, 34, 131, 1, 945, 1, 44, 119, 147, 24, 151, 1, 837
Offset: 1

Views

Author

Antti Karttunen, Dec 05 2021

Keywords

Crossrefs

Cf. A003415, A003961, A026424 (positions of odd terms), A028260 (of even terms), A066829 (parity of a(n)).
Cf. A358760, A358761, A358762, A358763 for indices of terms that of the form 4k+j, for j=0..3, and A358750, A358751, A358752, A358753 for their characteristic functions.

Programs

  • Mathematica
    f1[p_, e_] := e/p; d[1] = 0; d[n_] := n * Plus @@ f1 @@@ FactorInteger[n]; f2[p_, e_] := NextPrime[p]^e; s[1] = 1; s[n_] := Times @@ f2 @@@ FactorInteger[n]; a[n_] := d[s[n]]; Array[a, 100] (* Amiram Eldar, Dec 05 2021 *)
  • PARI
    A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
    A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
    A349905(n) = A003415(A003961(n));

Formula

a(n) = A003415(A003961(n)).
Previous Showing 11-20 of 887 results. Next