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.

Showing 1-10 of 43 results. Next

A205597 Odd terms of A019278: odd n such that sigma(sigma(n))/n is an integer.

Original entry on oeis.org

1, 15, 21, 1023, 29127, 550095, 355744082763
Offset: 1

Views

Author

Jud McCranie, Feb 08 2012

Keywords

Comments

a(8) > 4*10^12, if it exists. - Giovanni Resta, Feb 26 2020
First five terms are squarefree. Sigma(sigma(n))/n ratios for these seven known terms are: 1, 4, 3, 4, 4, 6, 4. - Antti Karttunen, Mar 19 2021

Examples

			15 is odd, sigma(15) = 24, sigma(24) = 60, and 60/15 is an integer.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1, 10^6, 2], Mod[Nest[DivisorSigma[1, #] &, #, 2], #] == 0 &] (* Michael De Vlieger, Mar 19 2021 *)
  • PARI
    isok(n) = (n%2) && (denominator(sigma(sigma(n))/n) == 1); \\ Michel Marcus, Sep 27 2017

A292949 Subsequence of terms of A019278 whose sum of divisors is also a term of A019278.

Original entry on oeis.org

1, 8, 15, 24, 60, 168, 512, 1023, 1536, 4092, 10752, 29127, 47360, 57120, 116508, 331520, 343976, 932064, 1556480, 1980342, 3932040, 4404480, 106151936, 238608384, 251650560, 312792480, 5099962368, 6604416000, 9623577600, 13460388480, 58350015360, 173238912000, 355744082763
Offset: 1

Views

Author

Michel Marcus, Sep 27 2017

Keywords

Comments

A019278 is the sequence of integers x such that sigma(sigma(x))/x is an integer.

Examples

			8 is a term since both 8 and 15=sigma(8) are terms of A019278.
		

Crossrefs

Subsequence of A019278.

Programs

  • PARI
    isok(n) = my(sn=sigma(n), ssn=sigma(sn)); (denominator(ssn/n)==1) && (denominator(sigma(ssn)/sn) == 1);

A293275 Exponent of highest power of 2 dividing the n-th (2,k)-perfect number A019278.

Original entry on oeis.org

0, 1, 2, 3, 0, 4, 0, 3, 1, 2, 6, 2, 5, 3, 4, 4, 5, 3, 9, 6, 0, 6, 9, 2, 12, 9, 9, 4, 0, 9, 5, 8, 5, 1, 12, 6, 16, 12, 2, 7, 18, 8, 3, 4, 0, 10, 8, 5, 16, 2, 8, 16, 14, 10, 6, 1, 2, 8, 3, 18, 12, 8, 18, 11, 11, 4, 14, 9, 5, 10, 6, 11, 5, 5, 16, 7, 14, 12, 8, 13, 9, 18
Offset: 1

Views

Author

Michel Marcus, Oct 10 2017

Keywords

Crossrefs

Cf. A007814, A019278, A205597 (when a(n) is zero).
Cf. A134665 (analog for multiperfect numbers).

Programs

  • PARI
    lista(nn) = for (n=1, nn, if (denominator(sigma(sigma(n))/n) == 1, print1(valuation(n, 2), ", "));); \\ Michel Marcus, Oct 10 2017

Formula

a(n) = A007814(A019278(n)).

A205643 (2,k)-perfect numbers (A019278) such that the next (2,k)-perfect number has the same value of k (in A098223).

Original entry on oeis.org

2, 84, 480, 32256, 58254, 61440, 1556480, 3932160, 1505806848, 107870873600, 1098437885952
Offset: 1

Views

Author

Jud McCranie, Feb 08 2012

Keywords

Comments

a(12) > 4*10^12, if it exists. - Giovanni Resta, Feb 26 2020

Crossrefs

Extensions

a(11) from Giovanni Resta, Feb 26 2020

A331813 a(n) is the least k > 1 such that k*A019278(n) belongs to A019278 too, or a(n) = 0 if no such k exists.

Original entry on oeis.org

2, 2, 2, 2, 4, 4, 2, 7, 2, 4, 8, 2, 3, 2, 2, 4, 2, 64, 3, 64, 4, 8, 7, 4, 15, 3, 50, 2, 2, 50, 2, 7, 29184, 2, 16, 64, 4, 16, 4, 385, 15, 9, 313600, 2, 4, 2793, 4199, 2, 4, 57600
Offset: 1

Views

Author

Michel Marcus, Jan 27 2020

Keywords

Comments

For the 132 terms (< 5*10^11) of the b-file for A019278, and using an extended list of terms, it can be checked that a(n) is not 0, even if the precise value is not known. For instance, a(51) <= 8097830664651.
Then a(52) to a(82) are: 4, 9, 1197, 8, 256, 4, 65155475, 64, 4096, 16, 195205791, 1387, 7, 37791, 4, 119, 8, 35136, 225, 64, 69127695, 2129920, 256, 4, 19671223, 9, 2, 1379763, 8, 90, 4096. And a(83) <= 7758260899200.
a(51) and a(83) are > 10^9.

Examples

			With A019278 starting as 1, 2, 4, 8, 15, 16, 21, 24, 42, 60, 64, ...
one gets the proper multiples 2, 4, 8, 16, 60, 64, ...
and so the sequence begins: 2, 2, 2, 2, 4, 4, ...
		

Crossrefs

Cf. A019278 (integers m such that sigma(sigma(m))/m is an integer).

Programs

  • PARI
    a(n, v019278) = my(m = v019278[n]); my(k=2, y = k*m); while (denominator(sigma(sigma(y))/y) != 1, k++; y += m); k;

A007691 Multiply-perfect numbers: n divides sigma(n).

Original entry on oeis.org

1, 6, 28, 120, 496, 672, 8128, 30240, 32760, 523776, 2178540, 23569920, 33550336, 45532800, 142990848, 459818240, 1379454720, 1476304896, 8589869056, 14182439040, 31998395520, 43861478400, 51001180160, 66433720320, 137438691328, 153003540480, 403031236608
Offset: 1

Views

Author

Keywords

Comments

sigma(n)/n is in A054030.
Also numbers such that the sum of the reciprocals of the divisors is an integer. - Harvey P. Dale, Jul 24 2001
Luca's solution of problem 11090, which proves that for k>1 there are an infinite number of n such that n divides sigma_k(n), does not apply to this sequence. However, it is conjectured that this sequence is also infinite. - T. D. Noe, Nov 04 2007
Numbers k such that sigma(k) is divisible by all divisors of k, subsequence of A166070. - Jaroslav Krizek, Oct 06 2009
A017666(a(n)) = 1. - Reinhard Zumkeller, Apr 06 2012
Bach, Miller, & Shallit show that this sequence can be recognized in polynomial time with arbitrarily small error by a probabilistic Turing machine; that is, this sequence is in BPP. - Charles R Greathouse IV, Jun 21 2013
Conjecture: If n is such that 2^n-1 is in A066175 then a(n) is a triangular number. - Ivan N. Ianakiev, Aug 26 2013
Conjecture: Every multiply-perfect number is practical (A005153). I've verified this conjecture for the first 5261 terms with abundancy > 2 using Achim Flammenkamp's data. The even perfect numbers are easily shown to be practical, but every practical number > 1 is even, so a weak form says every even multiply-perfect number is practical. - Jaycob Coleman, Oct 15 2013
Numbers such that A054024(n) = 0. - Michel Marcus, Nov 16 2013
Numbers n such that k(n) = A229110(n) = antisigma(n) mod n = A024816(n) mod n = A000217(n) mod n = (n(n+1)/2) mod n = A142150(n). k(n) = n/2 for even n; k(n) = 0 for odd n (for number 1 and eventually odd multiply-perfect numbers n > 1). - Jaroslav Krizek, May 28 2014
The only terms m > 1 of this sequence that are not in A145551 are m for which sigma(m)/m is not a divisor of m. Conjecture: after 1, A323653 lists all such m (and no other numbers). - Antti Karttunen, Mar 19 2021

Examples

			120 is OK because divisors of 120 are {1,2,3,4,5,6,8,10,12,15,20,24,30,40,60,120}, the sum of which is 360=120*3.
		

References

  • A. H. Beiler, Recreations in the Theory of Numbers, Dover, NY, 1964, p. 22.
  • J. Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 176.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • I. Stewart, L'univers des nombres, "Les nombres multiparfaits", Chapter 15, pp. 82-88, Belin-Pour La Science, Paris 2000.
  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, pages 141-148.
  • David Wells, The Penguin Dictionary of Curious and Interesting Numbers, Penguin Books, 1987, pp. 135-136.

Crossrefs

Complement is A054027. Cf. A000203, A054030.
Cf. A000396, A005820, A027687, A046060, A046061, for subsequences of terms with quotient sigma(n)/n = 2..6.
Subsequence of the following sequences: A011775, A071707, A083865, A089748 (after the initial 1), A102783, A166070, A175200, A225110, A226476, A237719, A245774, A246454, A259307, A263928, A282775, A323652, A336745, A340864. Also conjectured to be a subsequence of A005153, of A307740, and after 1 also of A295078.
Various number-theoretical functions applied to these numbers: A088843 [tau], A098203 [phi], A098204 [gcd(a(n),phi(a(n)))], A134665 [2-adic valuation], A307741 [sigma], A308423 [product of divisors], A320024 [the odd part], A134740 [omega], A342658 [bigomega], A342659 [smallest prime not dividing], A342660 [largest prime divisor].
Positions of ones in A017666, A019294, A094701, A227470, of zeros in A054024, A082901, A173438, A272008, A318996, A326194, A341524. Fixed points of A009194.
Cf. A069926, A330746 (left inverses, when applied to a(n) give n).
Cf. (other related sequences) A007539, A066135, A066961, A093034, A094467, A134639, A145551, A019278, A194771 [= 2*a(n)], A219545, A229110, A262432, A335830, A336849, A341608.

Programs

  • Haskell
    a007691 n = a007691_list !! (n-1)
    a007691_list = filter ((== 1) . a017666) [1..]
    -- Reinhard Zumkeller, Apr 06 2012
    
  • Mathematica
    Do[If[Mod[DivisorSigma[1, n], n] == 0, Print[n]], {n, 2, 2*10^11}] (* or *)
    Transpose[Select[Table[{n, DivisorSigma[-1, n]}, {n, 100000}], IntegerQ[ #[[2]] ]& ] ][[1]]
    (* Third program: *)
    Select[Range[10^6], IntegerQ@ DivisorSigma[-1, #] &] (* Michael De Vlieger, Mar 19 2021 *)
  • PARI
    for(n=1,1e6,if(sigma(n)%n==0, print1(n", ")))
    
  • Python
    from sympy import divisor_sigma as sigma
    def ok(n): return sigma(n, 1)%n == 0
    print([n for n in range(1, 10**4) if ok(n)]) # Michael S. Branicky, Jan 06 2021

Extensions

More terms from Jud McCranie and then from David W. Wilson.
Incorrect comment removed and the crossrefs-section reorganized by Antti Karttunen, Mar 20 2021

A005820 3-perfect (triply perfect, tri-perfect, triperfect or sous-double) numbers: numbers such that the sum of the divisors of n is 3n.

Original entry on oeis.org

120, 672, 523776, 459818240, 1476304896, 51001180160
Offset: 1

Views

Author

Keywords

Comments

These six terms are believed to comprise all 3-perfect numbers. - cf. the MathWorld link. - Daniel Forgues, May 11 2010
If there exists an odd perfect number m (a famous open problem) then 2m would be 3-perfect, since sigma(2m) = sigma(2)*sigma(m) = 3*2m. - Jens Kruse Andersen, Jul 30 2014
According to the previous comment from Jens Kruse Andersen, proving that this sequence is complete would imply that there are no odd perfect numbers. - Farideh Firoozbakht, Sep 09 2014
If 2 were prepended to this sequence, then it would be the sequence of integers k such that numerator(sigma(k)/k) = A017665(k) = 3. - Michel Marcus, Nov 22 2015
From Antti Karttunen, Mar 20 2021, Sep 18 2021, (Start):
Obviously, any odd triperfect numbers k, if they exist, have to be squares for the condition sigma(k) = 3*k to hold, as sigma(k) is odd only for k square or twice a square. The square root would then need to be a term of A097023, because in that case sigma(2*k) = 9*k. (See illustration in A347391).
Conversely to Jens Kruse Andersen's comment above, any 3-perfect number of the form 4k+2 would be twice an odd perfect number. See comment in A347870.
(End)

Examples

			120 = 2^3*3*5;  sigma(120) = (2^4-1)/1*(3^2-1)/2*(5^2-1)/4 = (15)*(4)*(6) = (3*5)*(2^2)*(2*3) = 2^3*3^2*5 = (3) * (2^3*3*5) = 3 * 120. - _Daniel Forgues_, May 09 2010
		

References

  • J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 120, p. 42, Ellipses, Paris 2008.
  • 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).
  • I. Stewart, L'univers des nombres, "Les nombres multiparfaits", Chap.15, pp 82-5, Belin/Pour la Science, Paris 2000.
  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 142.
  • David Wells, "The Penguin Book of Curious and Interesting Numbers," Penguin Books, London, 1986, pages 135, 159 and 185.

Crossrefs

Subsequence of the following sequences: A007691, A069085, A153501, A216780, A292365, A336458, A336461, A336745, and if there are no odd terms, then also of A334410.
Positions of 120's in A094759, 119's in A326200.

Programs

Formula

a(n) = 2*A326051(n). [provided no odd triperfect numbers exist] - Antti Karttunen, Jun 13 2019

Extensions

Wells gives the 6th term as 31001180160, but this is an error.
Edited by Farideh Firoozbakht and N. J. A. Sloane, Sep 09 2014 to remove some incorrect statements.

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

A019283 Let sigma_m (n) be result of applying sum-of-divisors function m times to n; call n (m,k)-perfect if sigma_m (n) = k*n; sequence gives the (2,6)-perfect numbers.

Original entry on oeis.org

42, 84, 160, 336, 1344, 86016, 550095, 1376256, 5505024, 22548578304
Offset: 1

Views

Author

Keywords

Comments

If 2^p-1 is a Mersenne prime then m = 21*2^(p-1) is in the sequence. Because sigma(sigma(m)) = sigma(sigma(21*2^(p-1))) = sigma(32*(2^p-1)) = 63*2^p = 6*(21*2^(p-1)) = 6*m. So 21*(A000668+1)/2 is a subsequence of this sequence. This is the subsequence 42, 84, 336, 1344, 86016, 1376256, 5505024, 22548578304, 24211351596743786496, ... - Farideh Firoozbakht, Dec 05 2005
See also the Cohen-te Riele links under A019276.
No other terms < 5 * 10^11. - Jud McCranie, Feb 08 2012
Any odd perfect numbers must occur in this sequence, as such numbers must be in the intersection of A000396 and A326051, that is, satisfy both sigma(n) = 2n and sigma(2n) = 6n, thus in combination they must satisfy sigma(sigma(n)) = 6n. Note that any odd perfect number should occur also in A326181. - Antti Karttunen, Jun 16 2019
a(11) > 4*10^12. - Giovanni Resta, Feb 26 2020

Crossrefs

Programs

  • Mathematica
    Do[If[DivisorSigma[1, DivisorSigma[1, n]]==6n, Print[n]], {n, 6000000}] (* Farideh Firoozbakht, Dec 05 2005 *)
  • PARI
    isok(n) = sigma(sigma(n))/n  == 6; \\ Michel Marcus, May 12 2016

Extensions

a(10) by Jud McCranie, Feb 08 2012

A019284 Let sigma_m (n) be result of applying sum-of-divisors function m times to n; call n (m,k)-perfect if sigma_m (n) = k*n; sequence gives the (2,7)-perfect numbers.

Original entry on oeis.org

24, 1536, 47360, 343976, 572941926400
Offset: 1

Views

Author

Keywords

Comments

See also the Cohen-te Riele links under A019276.
No other terms < 5*10^11. - Jud McCranie, Feb 08 2012
572941926400 is also a term. See comment in A019278. - Michel Marcus, May 15 2016
a(6) > 4*10^12, if it exists. - Giovanni Resta, Feb 26 2020

Crossrefs

Programs

  • Mathematica
    Select[Range[50000], DivisorSigma[1, DivisorSigma[1, #]]/# == 7 &] (* Robert Price, Apr 07 2019 *)
  • PARI
    isok(n) = sigma(sigma(n))/n  == 7; \\ Michel Marcus, May 12 2016

Extensions

a(5) from Giovanni Resta, Feb 26 2020
Showing 1-10 of 43 results. Next