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

A174292 Spoof-perfect numbers: Freestyle perfect numbers (A058007) which are not perfect numbers (A000396).

Original entry on oeis.org

60, 84, 90, 120, 336, 840, 924, 1008, 1080, 1260, 1320, 1440, 1680, 1980, 2016, 2160, 2184, 2520, 2772, 3024, 3420, 3600, 3780, 4680, 5040, 5940, 6048, 6552, 7440, 7560, 7800, 8190, 8280, 9240, 9828, 9900, 10080, 10530, 11088, 11400, 13680, 14040, 15120, 16380
Offset: 1

Views

Author

Daniel Forgues, Nov 27 2010

Keywords

Comments

Spoof-perfect numbers are freestyle perfect numbers which are not perfect numbers.
Only one odd spoof perfect number is known: 198585576189, found by Descartes.
Assuming all integer factorizations were tried in the range [1..9900] in A058007, where I removed 6, 28, 496, 8128 from the list (I did not do the search for spoof perfect numbers myself, so the accuracy of my list depends on the accuracy of A058007's list.)
Roughly said, a spoof-perfect number is a number that would be perfect if some (one or more) of its composite factors were wrongly assumed to be prime, i.e., taken as a spoof prime.
Contribution from M. F. Hasler, Jan 13 2013: (Start)
I added "roughly said" to the above last phrase, since different interpretations of "would be perfect if some of its composite factors were wrongly assumed to be prime" are possible, and Descartes's example does not help to decide: (Notations are those from A058007, n = Sum (f_i)^(e_i).)
(a) If a spoof prime factor f_i is composite, may it have some of the smaller (spoof or true prime) f_j as factors or not? (In Descartes's example, this is not the case. And "assumed to be prime" could well imply that the answer is "no". But there is no such restriction in A058007.)
(b) If f_i is composite, is it required that e_i is the highest possible power, i.e., the (f_i)-valuation of n (or of n divided by all smaller f_j to the powers e_j)? (In Descartes's example this is the case. And if product(f_i^e_i) is to be a "prime factorization" of n, then it should be the case. But there is no such restriction in A058007. Note that this is not a consequence of (a), because the f_i could have common factors: e.g., even if f_1=21, f_2=35, f_3=45 are "wrongly assumed to be prime", then n=21*35*45 would have the (f_1)-valuation = 2, i.e., factorization n = f_1^2*75.)
(c) Is it reasonable to allow for even spoof primes f_i? (In Descartes's example this is not the case. And it seems somehow inconceivable that an even number be "wrongly assumed to be prime". But there is no such restriction in A058007.
Depending on the answer to each of these questions, "spoof-perfect numbers" as defined using "composite factors were wrongly assumed to be prime", could mean at least 8 different sequences. (End)

Examples

			n = 60 = (3^1)*(4^1)*(5^1), s = 120 = (3^2-1)/(3-1) * (4^2-1)/(4-1) * (5^2-1)/(5-1): s-n = 120-60 = n, so 60 is in the sequence.
		

References

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

Crossrefs

Programs

  • Mathematica
    r[s_, n_, f_] := Catch[If[n==1, s==1, Block[{p,e}, Do[e=1; While[Mod[n, p^e] == 0, r[s*(p^(e+1)-1) / (p-1), n/p^e, p] && Throw@True; e++], {p, Select[Divisors@n, f < # &]}]]; False]]; spoofQ[n_] := r[1/2/n, n, 1] && DivisorSigma[-1, n] != 2; Select[Range[10^4], spoofQ] (* Giovanni Resta, Feb 28 2013 *)

Extensions

a(37)-a(44) from Amiram Eldar, Dec 27 2018

A222262 Divisors of Descarte's 198585576189.

Original entry on oeis.org

1, 3, 7, 9, 11, 13, 19, 21, 33, 39, 49, 57, 61, 63, 77, 91, 99, 117, 121, 133, 143, 147, 169, 171, 183, 209, 231, 247, 273, 361, 363, 399, 427, 429, 441, 507, 539, 549, 627, 637, 671, 693, 741, 793, 819, 847, 931, 1001, 1083, 1089, 1159, 1183, 1197, 1281
Offset: 1

Views

Author

M. F. Hasler, Feb 21 2013

Keywords

Comments

The number 198585576189 = 9018009*22021 is the first and only known odd term in A058007 and A174292; 9018009 = A222263(79).

Crossrefs

Programs

  • Mathematica
    Divisors[198585576189] (* Harvey P. Dale, Feb 22 2024 *)
  • PARI
    divisors(198585576189)

Formula

Union of A033870 and A033871.

Extensions

Offset corrected by Andrew Howroyd, Jan 17 2018

A222264 Numbers n such that 2n/sigma(n) - 1 = 1/x for some integer x.

Original entry on oeis.org

1, 2, 3, 4, 8, 10, 14, 15, 16, 32, 44, 64, 110, 128, 135, 136, 152, 182, 184, 190, 248, 256, 315, 512, 585, 752, 819, 884, 1012, 1024, 1155, 1365, 1485, 1550, 1892, 2048, 2144, 2272, 2295, 2528, 4064, 4096, 4455, 6490, 7030, 8192, 8384, 8648, 9009, 9405, 9945
Offset: 1

Views

Author

M. F. Hasler, Feb 20 2013

Keywords

Comments

If the number x is a prime which does not divide n, then n*x is a perfect number. This happens (so far) only when x = 2n-1 = 2^p-1 is a Mersenne prime (cf. A000043). But if x does not divide n, as, e.g., for (n,x)=(10,9), then n*x is a so-called freestyle perfect number, cf. A058007: Namely it "would be perfect if x is assumed to be prime", which means that sigma(n*x) is replaced by sigma(n)*(x+1) in the relation 2P=sigma(P) characterizing perfect numbers P, listed in A000396.
See also the (more interesting) subsequence of odd terms, A222263.

Examples

			8 is in the sequence because 2 * 8/sigma(8) - 1 = 16/15 - 1 = 1/15.
9 is not in the sequence because 2 * 9/sigma(9) - 1 = 5/13.
10 is in the sequence because 2 * 10/sigma(10) - 1 = 20/18 - 1 = 1/9.
		

Programs

  • Mathematica
    Select[Range[10^5], IntegerQ[2#/DivisorSigma[1, #] - 1] &] (* Alonso del Arte, Feb 20 2013 *)
  • PARI
    for(n=1,9e9, numerator(2*n/sigma(n)-1)==1 & print1(n","))
Showing 1-3 of 3 results.