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-4 of 4 results.

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

A336701 Numbers k for which A000265(1+A000265(sigma(k))) is equal to A000265(1+k).

Original entry on oeis.org

1, 3, 7, 15, 31, 127, 1023, 8191, 34335, 57855, 131071, 524287, 2147483647
Offset: 1

Views

Author

Antti Karttunen, Aug 02 2020

Keywords

Comments

Numbers k such that A336698(k) [= A000265(1+A161942(k))] is equal to A000265(1+k).
Numbers k such that A337194(k) = 2^e * A000265(1+k), for some e >= 1, where that e = A337195(k).
Any odd perfect number would trivially satisfy this condition.
Also, all hypothetical quasiperfect numbers, numbers k that satisfy sigma(k) = 2k+1, would be members.
Question: Is A066175 a subsequence of this sequence?
From Antti Karttunen, Aug 23 2020: (Start)
Numbers k such that (1+k) = 2^e * A336698(k), for some e >= 0.
Thus numbers k such that for some e >= 0, (1+k) = 2^(e-A337195(k)) * A337194(k), or equally, that A337194(k) = 2^(A337195(k)-e) * (1+k).
Conjecture: There are no even terms. This is equivalent to claim that there are no k such that A336698(k) = 1+k: If we assume that k is even, then in above equations we set e=0, and the requirement will then become that A337194(k) = 2^A337195(k)*(1+k), thus 1+k = A336698(k) = A000265(1+A000265(sigma(k))).
(End)

Crossrefs

Subsequence of A336700.
Cf. A000668 (a subsequence).
See also comments in A326042, A332223.

Programs

  • Mathematica
    Block[{f}, f[n_] := n/2^IntegerExponent[n, 2]; Select[Range[2^20], f[1 + f[DivisorSigma[1, #]]] == f[1 + #] &] ] (* Michael De Vlieger, Aug 22 2020 *)
  • PARI
    A000265(n)  = (n>>valuation(n,2));
    isA336701(n) = (A000265(1+A000265(sigma(n))) == A000265(1+n));

A067160 Numbers k such that sigma(phi(sigma(k))) = phi(sigma(phi(k))).

Original entry on oeis.org

1, 13, 65, 157, 173, 193, 1093, 1201, 1843, 2231, 2753, 3665, 12707, 13829, 15269, 19549, 19813, 20003, 31601, 32069, 32201, 34001, 58091, 72971, 77681, 80745, 91505, 112241, 129899, 153409, 153851, 180521, 187777, 200413, 250961, 261313, 278513, 305761
Offset: 1

Views

Author

Benoit Cloitre, Feb 19 2002

Keywords

Comments

Are there any even terms in the sequence?
12 of the first 1000 terms are even. - Donovan Johnson, Mar 01 2013

Crossrefs

Programs

  • Mathematica
    Select[Range[300000], DivisorSigma[1, EulerPhi[DivisorSigma[1, #]]] == EulerPhi[DivisorSigma[1, EulerPhi[#]]] &] (* Amiram Eldar, May 14 2022 *)
  • PARI
    c=0; for(n=1, 242207369, if(sigma(eulerphi(sigma(n)))==eulerphi(sigma(eulerphi(n))), c++; write("b067160.txt", c " " n))) /* Donovan Johnson, Mar 01 2013 */

Extensions

Edited by Dean Hickerson, Feb 20 2002

A330532 Triangular multiply-perfect numbers.

Original entry on oeis.org

1, 6, 28, 120, 496, 8128, 523776, 33550336, 8589869056, 137438691328, 2305843008139952128, 2658455991569831744654692615953842176, 191561942608236107294793378084303638130997321548169216, 13164036458569648337239753460458722910223472318386943117783728128
Offset: 1

Views

Author

Jaroslav Krizek, Dec 17 2019

Keywords

Comments

Multiply-perfect numbers of the form 2^(k - 1) * (2^k - 1) that can be written as sum of the first h natural numbers for some h.
Corresponding values of numbers k and h: (1, 2, 3, 4, 5, 7, 10, 13, 17, 19, 31, 61, 89, 107, 127, ...), (1, 3, 7, 15, 31, 127, 1023, 8191, 131071, 524287, 2147483647, ...), where h = 2^k - 1. Conjecture: numbers h are numbers from A066175 (sigma(phi(sigma(h))) = h).
Corresponding values of abundancies sigma(a(n)) / a(n): 1, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, ...
Conjecture: union of even perfect numbers from A000396 and 3-perfect numbers 120 and 523776.
Intersection of A000217 and A007691.

Crossrefs

Programs

  • Magma
    [(2^k - 1) * (2^(k - 1)): k in [1..200] | IsIntegral(SumOfDivisors((2^k - 1) * (2^(k - 1)))/( (2^k - 1) * (2^(k - 1))))];
    
  • PARI
    isok(k) = ispolygonal(k, 3) && (denominator(sigma(k)/k) == 1); \\ Michel Marcus, Dec 19 2019
Showing 1-4 of 4 results.