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 21-30 of 195 results. Next

A019278 Numbers j such that sigma(sigma(j)) = k*j for some k.

Original entry on oeis.org

1, 2, 4, 8, 15, 16, 21, 24, 42, 60, 64, 84, 160, 168, 240, 336, 480, 504, 512, 960, 1023, 1344, 1536, 4092, 4096, 10752, 13824, 16368, 29127, 32256, 32736, 47360, 57120, 58254, 61440, 65472, 65536, 86016, 116508, 217728, 262144, 331520, 343976, 466032, 550095
Offset: 1

Views

Author

Keywords

Comments

Let sigma^m (j) be the result of applying the sum-of-divisors function (A000203) m times to j; call j (m,k)-perfect if sigma^m (j) = k*j; then this is the sequence of (2,k)-perfect numbers.
From Michel Marcus, May 14 2016: (Start)
For these numbers, the quotient k = sigma(sigma(j))/j is an integer (see A098223). Then also k = (sigma(s)/s)*(sigma(j)/j) with s = sigma(j). That is, k = abundancy(s)*abundancy(j).
So looking at the abundancy of these terms may be interesting. Indeed we see that 459818240 and 51001180160 are actually 3-perfect numbers (A005820), and the reason they are here is that they are coprime to 3. So their sums of divisors are 4-perfect numbers (A027687), yielding q=12.
In a similar way, we can see that the 5-perfect numbers (A046060) that are coprime to 5 will be terms of this sequence with q=30. There are 20 such numbers, the smallest being 13188979363639752997731839211623940096. (End)
From Michel Marcus, May 15 2016: (Start)
It is also interesting to note that for a(2)=8, s=sigma(8)=15 is also a term. This happens to be the case for chains of several terms in a row:
8, 15, 24, 60, 168, 480 with k = 3,4,7,8,9,10;
512, 1023, 1536, 4092, 10752, 32736 with k = 3,4,7,8,9,10;
29127, 47360, 116508, 331520, 932064, 2983680 with k = 4,7,8,9,13,14;
1556480, 3932040, 14008320 with k = 9,13,14;
106151936, 251650560, 955367424 with k = 9,13,14;
312792480, 1505806848 with k = 19,20;
6604416000, 30834059256 with k = 19,20;
9623577600, 46566269568 with k = 19,20.
When j is a term, we can test if s=sigma(j) is also a term; this way we get 6 more terms: 572941926400, 845734196736, 1422976331052, 4010593484800, 11383810648416, 36095341363200.
And the corresponding chains are:
173238912000, 845734196736 with k = 19,20;
355744082763, 572941926400, 1422976331052, 4010593484800, 11383810648416, 36095341363200 with k = 4,7,8,9,13,14. (End)
From Altug Alkan, May 17 2016: (Start)
Here are additional chains for the above list:
57120, 217728 with k = 13,14;
343976, 710400 with k = 7,8;
1980342, 5621760 with k = 10,14;
4404480, 14913024 with k = 11,12;
238608384, 775898880 with k = 11,12. (End)
Currently, the coefficient pairs are [1, 1], [3, 4], [4, 7], [7, 8], [8, 9], [9, 10], [9, 13], [10, 14], [11, 12], [13, 14], [16, 17], [16, 21], [17, 18], [19, 20], [23, 24], [25, 26], [25, 31], [27, 28], [29, 30], [31, 32], [32, 33], [37, 38]. It is interesting to note that for some of them, the pair (s,t) also satisfies t=sigma(s). - Michel Marcus, Jul 03 2016; Sep 06 2016
Using these empirical pairs of coefficients in conjunction with the first comment allows us to determine whether some term is the sum of divisors of another yet unknown smaller term. - Michel Marcus, Jul 04 2016
For m in A090748 = A000043 - 1 and c in A205597 (= odd a(n)), c*2^m is in the sequence, unless 2^(m+1)-1 | sigma(c). Indeed, from sigma(x*y) = sigma(x)*sigma(y) for gcd(x,y) = 1, we get sigma(sigma(c*2^m)) = sigma(sigma(c))*2^(m+1), so c*2^m is in the sequence if sigma(sigma(c))/c = k/2 (where k can't be odd: A330598 has no odd c). - M. F. Hasler, Jan 06 2020

Crossrefs

For sigma see A000203 and A007691.
Cf. A205597 (odd terms), A323653 (those terms that are in A007691, i.e., for which sigma(n)/n is also an integer), A330598 (half-integer ratio).

Programs

  • Magma
    [m: m in [1..560000]| IsIntegral(DivisorSigma(1,DivisorSigma(1,m))/m)]; // Marius A. Burtea, Nov 16 2019
  • Mathematica
    Select[Range[100000], Mod[DivisorSigma[1, DivisorSigma[1, #]], #] == 0 &] (* Carl Najafi, Aug 22 2011 *)
  • PARI
    is_A019278(n)=sigma(sigma(n))%n==0 \\ M. F. Hasler, Jul 02 2016
    
  • Python
    from sympy.ntheory import divisor_sigma as D
    print([i for i in range(1, 10000) if D(D(i, 1), 1)%i==0]) # Indranil Ghosh, Mar 17 2017
    

Extensions

Simpler definition from M. F. Hasler, Jul 02 2016

A054024 Sum of the divisors of n reduced modulo n.

Original entry on oeis.org

0, 1, 1, 3, 1, 0, 1, 7, 4, 8, 1, 4, 1, 10, 9, 15, 1, 3, 1, 2, 11, 14, 1, 12, 6, 16, 13, 0, 1, 12, 1, 31, 15, 20, 13, 19, 1, 22, 17, 10, 1, 12, 1, 40, 33, 26, 1, 28, 8, 43, 21, 46, 1, 12, 17, 8, 23, 32, 1, 48, 1, 34, 41, 63, 19, 12, 1, 58, 27, 4, 1, 51, 1, 40, 49, 64, 19, 12, 1, 26, 40
Offset: 1

Views

Author

Asher Auel, Jan 19 2000

Keywords

Comments

If a(n) = 0, then n is a multiply-perfect number (A007691). - Alonso del Arte, Mar 30 2014

Examples

			a(12) = 4 because sigma(12) = 28 and 28 == 4 (mod 12).
a(13) = 1 because 13 is prime.
a(14) = 10 because sigma(14) = 24 and 24 == 10 (mod 14).
		

Crossrefs

Cf. A000203 (sigma), A005114 (untouchable numbers), A007691 (positions of 0's), A045768, A045769, A088834, A045770, A076496, A159907.

Programs

Formula

a(n) = sigma(n) mod n.
a(p) = 1 for p prime.

A336702 Numbers whose abundancy index is a power of 2.

Original entry on oeis.org

1, 6, 28, 496, 8128, 30240, 32760, 2178540, 23569920, 33550336, 45532800, 142990848, 1379454720, 8589869056, 43861478400, 66433720320, 137438691328, 153003540480, 403031236608, 704575228896, 181742883469056, 6088728021160320, 14942123276641920, 20158185857531904, 275502900594021408, 622286506811515392, 2305843008139952128
Offset: 1

Views

Author

Antti Karttunen, Aug 05 2020

Keywords

Comments

Apart from missing 2, this sequence gives all numbers k such that the binary expansion of A156552(k) is a prefix of that of A156552(sigma(k)), that is, for k > 1, numbers k for which sigma(k) is a descendant of k in A005940-tree. This follows because of the two transitions x -> A005843(x) (doubling) and x -> A003961(x) (prime shift) used to generate descendants in A005940-tree, using A003961 at any step of the process will ruin the chances of encountering sigma(k) anywhere further down that subtree.
Proof: Any left child in A005940 (i.e., A003961(k) for k) is larger than sigma(k), for any k > 2 [see A286385 for a proof], and A003961(n) > n for all n > 1. Thus, apart from A003961(2) = 3 = sigma(2), A003961^t(k) > sigma(k), where A003961^t means t-fold application of prime shift, here with t >= 1. On the other hand, sigma(2n) > sigma(n) for all n, thus taking first some doubling steps before a run of one or more prime shift steps will not rescue us, as neither will taking further doubling steps after a bout of prime shifts.
The first terms of A325637 not included in this sequence are 154345556085770649600 and 9186050031556349952000, as they have abundancy index 6.
From Antti Karttunen, Nov 29 2021: (Start)
Odd terms of this sequence are given by the intersection of A349169 and A349174.
A064989 applied to the odd terms of this sequence gives the fixed points of A326042, i.e., the positions of zeros in A348736, and a subset of the positions of ones in A348941.
Odd terms of this sequence form a subsequence of A348943, but should occur neither in A348748 nor in A348749.
(End)

Examples

			For 30240, sigma(30240) = 120960 = 4*30240, therefore, as sigma(k)/k = 2^2, a power of two, 30240 is present.
		

Crossrefs

Cf. A000396, A027687 (subsequences).
Subsequence of A007691, and after 1, also subsequence of A325637.
Union with {2} gives the positions of zeros in A347381.

Programs

  • PARI
    isA336702(n) = { my(r=sigma(n)/n); (1==denominator(r)&&!bitand(r, r-1)); }; \\ (Corrected) - Antti Karttunen, Aug 31 2021

A045768 Numbers k such that sigma(k) == 2 (mod k).

Original entry on oeis.org

1, 20, 104, 464, 650, 1952, 130304, 522752, 8382464, 134193152, 549754241024, 8796086730752, 140737463189504, 144115187270549504
Offset: 1

Views

Author

Keywords

Comments

Equivalently, Chowla function of k is congruent to 1 (mod k).
If p=2^i-3 is prime, then 2^(i-1)*p is a term of the sequence. 650 is in the sequence, but is not of this form.
Terms k from a(2) to a(14) satisfy sigma(k) = 2*k + 2, implying that sigma(k) == 0 (mod k+1). It is not known if this holds in general, for there might be solutions of sigma(k)=3k+2 or 4k+2 or ... (Comments from Jud McCranie and Dean Hickerson, updated by Jon E. Schoenfield, Sep 25 2021 and by Max Alekseyev, May 23 2025).
k | sigma(k) produces the multiperfect numbers (A007691). It is an open question whether k | sigma(k) - 1 iff k is a prime or 1. It is not known if there exist solutions to sigma(k) = 2k+1.
Sequence also gives the nonprime solutions to sigma(k) == 0 (mod k+1), k > 1. - Benoit Cloitre, Feb 05 2002
Sequence seems to give nonprime k such that the numerator of the sum of the reciprocals of the divisors of k equals k+1 (nonprime k such that A017665(k)=k+1). - Benoit Cloitre, Apr 04 2002
For k > 1, composite numbers k such that A108775(k) = floor(sigma(k)/k) = sigma(k) mod k = A054024(k). Complement of primes (A000040) with respect to A230606. There are no numbers k > 2 such that sigma(x) = k*(x+1) has a solution. - Jaroslav Krizek, Dec 05 2013

Examples

			sigma(650) = 1302 == 2 (mod 650).
		

References

  • R. K. Guy, Unsolved Problems in Number Theory, B2.

Crossrefs

Numbers k such that A054013(k)=1.

Programs

  • Mathematica
    Do[If[Mod[DivisorSigma[1, n]-2, n]==0, Print[n]], {n, 1, 10^8}]
    Join[{1}, Select[Range[8000000], Mod[DivisorSigma[1, #], #]==2 &]] (* Vincenzo Librandi, Mar 11 2014 *)
  • PARI
    is(n)=sigma(n)%n==2 || n==1 \\ Charles R Greathouse IV, Mar 09 2014

Extensions

More terms from Jud McCranie, Dec 22 1999.
a(11) from Donovan Johnson, Mar 01 2012
a(12) from Giovanni Resta, Apr 02 2014
a(13) from Jud McCranie, Jun 02 2019
Edited and a(14) from Jon E. Schoenfield confirmed by Max Alekseyev, May 23 2025

A159907 Numbers m with half-integral abundancy index, sigma(m)/m = k+1/2 with integer k.

Original entry on oeis.org

2, 24, 4320, 4680, 26208, 8910720, 17428320, 20427264, 91963648, 197064960, 8583644160, 10200236032, 21857648640, 57575890944, 57629644800, 206166804480, 17116004505600, 1416963251404800, 15338300494970880, 75462255348480000, 88898072401645056, 301183421949935616, 6219051710415667200
Offset: 1

Views

Author

M. F. Hasler, Apr 25 2009

Keywords

Comments

Obviously, all terms must be even (cf. formula), but e.g. a(9) and a(12) are not divisible by 3. See A007691 for numbers with integral abundancy.
Odd numbers and higher powers of 2 cannot be in the sequence; 6 is in A000396 and thus in A007691, and n=10,12,14,18,20,22 don't have integral 2*sigma(n)/n.
Conjecture: with number 1, multiply-anti-perfect numbers m: m divides antisigma(m) = A024816(m). Sequence of fractions antisigma(m) / m: {0, 0, 10, 2157, 2337, 13101, 4455356, ...}. - Jaroslav Krizek, Jul 21 2011
The above conjecture is equivalent to the conjecture that there are no odd multiply perfect numbers (A007691) greater than 1. Proof: (sigma(n)+antisigma(n))/n = (n+1)/2 for all n. If n is even then sigma(n)/n is a half-integer if and only if antisigma(n)/n is an integer. Since all members of this sequence are known to be even, the only way the conjecture can fail is if antisigma(n)/n is an integer, in which case sigma(n)/n is an integer as well. - Nathaniel Johnston, Jul 23 2011
These numbers are called hemiperfect numbers. See Numericana & Wikipedia links. - Michel Marcus, Nov 19 2017

Examples

			a(1) = 2 since sigma(2)/2 = (1+2)/2 = 3/2 is of the form k+1/2 with integer k=1.
a(2) = 24 is in the sequence since sigma(24)/24 = (1+2+3+4+6+8+12+24)/24 = (24+12+24)/24 = k+1/2 with integer k=2.
		

Crossrefs

Cf. A000203, A088912, A141643 (k=2), A055153 (k=3), A141645 (k=4), A159271 (k=5).

Programs

  • PARI
    isok(n) = denominator(sigma(n,-1)) == 2; \\ Michel Marcus, Sep 19 2015
    
  • PARI
    forfactored(n=1,10^7, if(denominator(sigma(n,-1))==2, print1(n[1]", "))) \\ Charles R Greathouse IV, May 09 2017
    
  • Python
    from fractions import Fraction
    from sympy import divisor_sigma as sigma
    def aupto(limit):
      for k in range(1, limit):
        if Fraction(int(sigma(k, 1)), k).denominator == 2:
          print(k, end=", ")
    aupto(3*10**4) # Michael S. Branicky, Feb 24 2021

Formula

A159907 = { n | 2*A000203(n) is in n*A005408 } = { n | A054024(n) = n/2 }

Extensions

Terms a(20) onward from Max Alekseyev, Jun 05 2025

A007539 a(n) = first n-fold perfect (or n-multiperfect) number.

Original entry on oeis.org

1, 6, 120, 30240, 14182439040, 154345556085770649600, 141310897947438348259849402738485523264343544818565120000
Offset: 1

Views

Author

Keywords

Comments

On the Riemann Hypothesis, a(n) > exp(exp(n / e^gamma)) for n > 3. Unconditionally, a(n) > exp(exp(0.9976n / e^gamma)) for n > 3, where the constant is related to A004394(1000000). - Charles R Greathouse IV, Sep 06 2012
Each of the terms 1, 6, 120, 30240 divides all larger terms <= a(8). See A227765, A227766, ..., A227769. - Jonathan Sondow, Jul 30 2013
Is a(n) < a(n+1)? - Jeppe Stig Nielsen, Jun 16 2015
Equivalently, a(n) is the smallest number k such that sigma(k)/k = n. - Derek Orr, Jun 19 2015
The number of divisors of these terms are: 1, 4, 16, 96, 1920, 110592, 1751777280, 63121588161085440. - Michel Marcus, Jun 20 2015
Given n, let S_n be the sequence of integers k that satisfy numerator(sigma(k)/k) = n. Then a(n) is a member of S_n. In fact a(n) = S_n(i), where the successive values of i are 1, 1, 2, 2, 4, 2, (23, 6, 31, 12, ...), where the terms in parentheses need to be confirmed. - Michel Marcus, Nov 22 2015
The first four terms are the only multiperfect numbers in A025487 among the 1600 initial terms of A007691. Can it be proved that these are the only ones among the whole A007691? See also A349747. - Antti Karttunen, Dec 04 2021

References

  • A. H. Beiler, Recreations in the Theory of Numbers, Dover, NY, 1964, p. 22.
  • A. Brousseau, Number Theory Tables. Fibonacci Association, San Jose, CA, 1973, p. 138.
  • R. K. Guy, Unsolved Problems in Number Theory, B2.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Mathematica
    Table[k = 1; While[DivisorSigma[1, k]/k != n, k++]; k, {n, 4}] (* Michael De Vlieger, Jun 20 2015 *)
  • PARI
    a(n)=k=1;while((sigma(k)/k)!=n,k++);k
    vector(4,n,a(n)) \\ Derek Orr, Jun 19 2015

Extensions

More terms sent by Robert G. Wilson v, Nov 30 2000

A229110 Sum of non-divisors of n reduced modulo n.

Original entry on oeis.org

0, 0, 2, 3, 4, 3, 6, 5, 5, 7, 10, 2, 12, 11, 6, 9, 16, 6, 18, 8, 10, 19, 22, 0, 19, 23, 14, 14, 28, 3, 30, 17, 18, 31, 22, 35, 36, 35, 22, 10, 40, 9, 42, 26, 12, 43, 46, 44, 41, 32, 30, 32, 52, 15, 38, 20, 34, 55, 58, 42, 60, 59, 22, 33, 46, 21, 66, 44, 42
Offset: 1

Views

Author

Jaroslav Krizek, Sep 22 2013

Keywords

Comments

Numbers n such that a(n)=0 are: 1, 2, 24, 4320, 4680, ... (see A159907, conjecture by Jaroslav Krizek and further comments). - Michel Marcus, Sep 23 2013
Numbers n such that a(n)=n/2 are: 6, 28, 120, 496, 672, ... = A007691 \ {1}. - Michel Marcus, Sep 25 2013

Crossrefs

Programs

  • Haskell
    a229110 n = mod (a024816 n) n
    
  • PARI
    a(n) = lift(sum(i=1, n, if (n % i, Mod(i, n), 0))); \\ Michel Marcus, Sep 23 2013
    
  • PARI
    a(n)=(n*(n+1)/2-sigma(n))%n \\ Charles R Greathouse IV, Sep 23 2013

Formula

a(n) = A024816(n) mod n.

A323653 Multiperfect numbers m such that sigma(m) is also multiperfect.

Original entry on oeis.org

1, 459818240, 51001180160, 13188979363639752997731839211623940096, 5157152737616023231698245840143799191339008, 54530444405217553992377326508106948362108928, 133821156044600922812153118065015159487725568, 4989680372093758991515359988337845750507257510078971904
Offset: 1

Views

Author

Jaroslav Krizek, Jan 21 2019

Keywords

Comments

Multiperfect numbers m such that sigma(m) divides sigma(sigma(m)).
Also k-multiperfect numbers m such that k*m is also multiperfect.
Corresponding values of numbers k(n) = sigma(a(n)) / a(n): 1, 3, 3, 5, 5, 5, 5, 5, ...
Corresponding values of numbers h(n) = sigma(k(n) * a(n)) / (k(n) * a(n)): 1, 4, 4, 6, 6, 6, 6, 6, ...
Number of k-multiperfect numbers m such that sigma(n) is also multiperfect for k = 3..6: 2, 0, 20, 0.
From Antti Karttunen, Mar 20 2021, Feb 18 2022: (Start)
Conjecture 1 (a): This sequence consists of those m for which sigma(m)/m is an integer (thus a term of A007691), and coprime with m. Or expressed in a slightly weaker form (b): {1} followed by those m for which sigma(m)/m is an integer, but not a divisor of m. In a slightly stronger form (c): For m > 1, sigma(m)/m is always the least prime not dividing m. This would imply both (a) and (b) forms.
Conjecture 2: This sequence is finite.
Conjecture 3: This sequence is the intersection of A007691 and A351458.
Conjecture 4: This is a subsequence of A349745, thus also of A351551 and of A351554.
Note that if there existed an odd perfect number x that were not a multiple of 3, then both x and 2*x would be terms in this sequence, as then we would have: sigma(x)/x = 2, sigma(2*x)/(2*x) = 3, sigma(6*x)/(6*x) = 4. See also the diagram in A347392 and A353365.
(End)
From Antti Karttunen, May 16 2022: (Start)
Apparently for all n > 1, A336546(a(n)) = 0. [At least for n=2..23], while A353633(a(n)) = 1, for n=1..23.
The terms a(1) .. a(23) are only cases present among the 5721 known and claimed multiperfect numbers with abundancy <> 2, as published 03 January 2022 under Flammenkamp's site, that satisfy the condition for inclusion in this sequence.
They are also the only 23 cases among that data such that gcd(n, sigma(n)/n) = 1, or in other words, for which the n and its abundancy are relatively prime, with abundancy in all cases being the least prime that does not divide n, A053669(n), which is a sufficient condition for inclusion in A351458.
(End)

Examples

			3-multiperfect number 459818240 is a term because number 3*459818240 = 1379454720 is a 4-multiperfect number.
		

Crossrefs

Programs

  • Magma
    [n: n in [1..10^6] | SumOfDivisors(n) mod n eq 0 and SumOfDivisors(SumOfDivisors(n)) mod SumOfDivisors(n) eq 0];
    
  • PARI
    ismulti(n) = (sigma(n) % n) == 0;
    isok(n) = ismulti(n) && ismulti(sigma(n)); \\ Michel Marcus, Jan 26 2019

A007340 Numbers whose divisors' harmonic and arithmetic means are both integers.

Original entry on oeis.org

1, 6, 140, 270, 672, 1638, 2970, 6200, 8190, 18600, 18620, 27846, 30240, 32760, 55860, 105664, 117800, 167400, 173600, 237510, 242060, 332640, 360360, 539400, 695520, 726180, 753480, 1089270, 1421280, 1539720, 2229500, 2290260, 2457000
Offset: 1

Views

Author

Keywords

Comments

Intersection of A001599 and A003601.
The following are also in A046985: 1, 6, 672, 30240, 32760. Also contains multiply perfect (A007691) numbers. - Labos Elemer
The numbers whose average divisor is also a divisor. Ore's harmonic numbers A001599 without the numbers A046999. - Thomas Ordowski, Oct 26 2014, Apr 17 2022
Harmonic numbers k whose harmonic mean of divisors (A001600) is also a divisor of k. - Amiram Eldar, Apr 19 2022

Examples

			x = 270: Sigma(0, 270) = 16, Sigma(1, 270) = 720; average divisor a = 720/16 = 45 and integer 45 divides x, x/a = 270/45 = 6, but 270 is not in A007691.
		

References

  • G. L. Cohen, personal communication.
  • Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B2, pp. 74-84.
  • N. J. A. Sloane, Illustration for sequence M4299 (=A007340) in The Encyclopedia of Integer Sequences (with Simon Plouffe), Academic Press, 1995.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • D. Wells, Curious and interesting numbers, Penguin Books, p. 124.

Crossrefs

Intersection of A003601 and A001599.
Different from A090945.

Programs

  • Haskell
    a007340 n = a007340_list !! (n-1)
    a007340_list = filter ((== 0) . a054025) a001599_list
    -- Reinhard Zumkeller, Dec 31 2013
    
  • Maple
    filter:= proc(n)
    uses numtheory;
    local a;
    a:= sigma(n)/sigma[0](n);
    type(a,integer) and type(n/a,integer);
    end proc:
    select(filter, [$1..2500000]); # Robert Israel, Oct 26 2014
  • Mathematica
    Do[ a = DivisorSigma[0, n]/ DivisorSigma[1, n]; If[IntegerQ[n*a] && IntegerQ[1/a], Print[n]], {n, 1, 2500000}] (* Labos Elemer *)
    ahmQ[n_] := Module[{dn = Divisors[n]}, IntegerQ[Mean[dn]] && IntegerQ[HarmonicMean[dn]]]; Select[Range[2500000], ahmQ] (* Harvey P. Dale, Nov 16 2011 *)
  • PARI
    is(n)=my(d=divisors(n),s=vecsum(d)); s%#d==0 && #d*n%s==0 \\ Charles R Greathouse IV, Feb 07 2017

Formula

a = Sigma(1, x)/Sigma(0, x) integer and b = x/a also.

Extensions

More terms from Robert G. Wilson v, Oct 03 2002
Edited by N. J. A. Sloane, Oct 05 2008 at the suggestion of R. J. Mathar

A073802 Number of common divisors of n and sigma(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 4, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 1, 6, 1, 2, 1, 6, 1, 4, 1, 1, 2, 2, 1, 1, 1, 2, 1, 4, 1, 4, 1, 3, 2, 2, 1, 3, 1, 1, 2, 2, 1, 4, 1, 4, 1, 2, 1, 6, 1, 2, 1, 1, 1, 4, 1, 2, 2, 2, 1, 2, 1, 2, 1, 3, 1, 4, 1, 2, 1, 2, 1, 6, 1, 2, 2, 3, 1, 6, 2, 3, 1, 2, 2, 6, 1, 1, 2, 1, 1, 4, 1, 2, 2
Offset: 1

Views

Author

Labos Elemer, Aug 13 2002

Keywords

Comments

From Jaroslav Krizek, Feb 18 2010: (Start)
Number of divisors d of number n such that d divides sigma(n).
a(n) = A000005(n) - A173438(n).
a(n) = A000005(n) for multiply-perfect numbers (A007691). (End)

Examples

			For n = 12: a(12) = 3; sigma(12) = 28, divisors of 12: 1, 2, 3, 4, 6, 12; d divides sigma(n) for 3 divisors d: 1, 2, 4.
n=96: d(96) = {1, 2, 3, 4, 6, 8, 12, 16, 24, 32, 48, 96}, d(sigma(96)) = {1, 2, 3, 4, 6, 7, 9, 12, 14, 18, 21, 28, 36, 42, 63, 84, 126, 252}, CD(n, sigma(n)) = {1, 2, 3, 4, 6, 12} so a(96) = 6.
		

Crossrefs

Programs

  • Magma
    [NumberOfDivisors(GCD(SumOfDivisors(n),n)): n in [1..100]]; // Vincenzo Librandi, Oct 09 2017
  • Mathematica
    g1[x_] := Divisors[x]; g2[x_] := Divisors[DivisorSigma[1, x]]; ncd[x_] := Length[Intersection[g1[x], g2[x]]]; Table[ncd[w], {w, 1, 128}]
    Table[Length[Intersection[Divisors[n], Divisors[DivisorSigma[1, n]]]], {n, 100}] (* Vincenzo Librandi, Oct 09 2017 *)
    a[n_] := DivisorSigma[0, GCD[n, DivisorSigma[1, n]]]; Array[a, 100] (* Amiram Eldar, Nov 21 2024 *)
  • PARI
    a(n)=numdiv(gcd(sigma(n),n)) \\ Charles R Greathouse IV, Mar 09 2014
    

Formula

See program.
a(n) = A000005(A009194(n)) = tau(gcd(n,sigma(n))). [Reinhard Zumkeller, Mar 12 2010]
Previous Showing 21-30 of 195 results. Next